Author Topic: New Basic Demo for CPC 6128  (Read 4255 times)

0 Members and 1 Guest are viewing this topic.

Offline Bytebreaker

  • CPC664
  • ***
  • Posts: 66
  • Country: de
  • Liked: 84
  • Likes Given: 77
New Basic Demo for CPC 6128
« on: 00:24, 14 February 16 »

Hi there,

please let me introduce myself. I originate from the Amiga demoscene and was a diskmag editor back in the late 90s. A few years ago I rediscovered my Amiga hobby, and along with it came my interest for 8bitters. Being a Commodore child it is not easy to say for me that the CPC is to me the most adult, ruling 8bit machine with superior Basic and breathtaking demo abilities (thank you, Batman group). As far as I can judge, the CPC is the only computer on which Basic demos can be done at all without looking too shitty.

So I want to present you a Basic demo I made that was inspired by the line effect in the CPC464 welcome cassette. Until now I did not manage to reproduce this effect 1:1 so if anyone has ripped the sourcecode I would be grateful to view it. I am still a beginner and I know that I will never reach the level of people like that polish guy who optimized the CPC boing ball effect here in this forum, but as long as I feel love and passion for the CPC, I will continue to try and learn. I also plan an intro in 6502 assembler on the C64 as soon as I have learned enough and then one day I will learn Z80 assembler.


You start the demo with run"disc. Please also note the analog clock I added as a bonus. It works with the interrupt function that was already there in 1984 with Basic 1.0. My demo also works in modified form on a real CPC 464 on a real cassette tape. The only reason why I promote it as a CPC 6128 demo is the built-in fill function and the dsk support, which makes everything much smoother and better. Don't be scared by the first effect, which is rather a technical feasibility study than a smooth effect. Try CTRL-Shift-F4 in WinCPC and you will see what's it about.  I am grateful to be part of the Amstrad community now. Thanks for being here.
« Last Edit: 00:26, 14 February 16 by Bytebreaker »

Offline ukmarkh

  • 6128 Plus
  • ******
  • Posts: 1.465
  • Country: england
    • Classic Replay
  • Liked: 390
  • Likes Given: 110
Re: New Basic Demo for CPC 6128
« Reply #1 on: 00:42, 14 February 16 »
Keep up the good work! Love the real time clock  ;)
« Last Edit: 00:46, 14 February 16 by ukmarkh »

Offline ||C|-|E||

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 1.867
  • Country: gb
    • index.php?action=treasury
    • Mundo CPC
  • Liked: 1045
  • Likes Given: 1155
Re: New Basic Demo for CPC 6128
« Reply #2 on: 00:45, 14 February 16 »
Welcome to the forum and the Amstrad community! Your demo is really lovely!  :D

Offline Bytebreaker

  • CPC664
  • ***
  • Posts: 66
  • Country: de
  • Liked: 84
  • Likes Given: 77
Re: New Basic Demo for CPC 6128
« Reply #3 on: 00:46, 14 February 16 »
Thanks for your encouragement.  :D

Offline Fessor

  • CPC6128
  • ****
  • Posts: 262
  • Country: de
  • Liked: 297
  • Likes Given: 50
Re: New Basic Demo for CPC 6128
« Reply #4 on: 01:39, 14 February 16 »
Welcome to the Forum.
Which effect? Colour-Cycling?
Code: [Select]
10 MODE 0
20 INK 0,0:BORDER 0
30 DIM c(16)
40 DATA 24,12,9,18,22,23,11,2,1,4,3,6,7,15,25
50 FOR i=1 TO 15:READ c(i):INK i,c(i):NEXT
60 DEG
70 FOR i=0 TO 360
80 MOVE 320,200
90 DRAW 320+200*SIN(i),200+200*COS(i),1+(i MOD 15)
100 NEXT
110 c(16)=c(1)
120 FOR i=1 TO 15
130 c(i)=c(i+1)
140 INK i,c(i)
150 NEXT
160 GOTO 110

Offline Bytebreaker

  • CPC664
  • ***
  • Posts: 66
  • Country: de
  • Liked: 84
  • Likes Given: 77
Re: New Basic Demo for CPC 6128
« Reply #5 on: 01:46, 14 February 16 »
@ Fessor


Thanks this is great.
Do you also have a sourcecode for lines that form a mathematical pattern? Ok, your circle of lines is exayctly this, but in the CPC 464 welcome tape (Basic 1.0. 1984) side A you also see lines that seem to follow weird sin/cos movements. I cannot explain it better so I attached the tape so you will see.

Offline Token

  • 464 Plus
  • *****
  • Posts: 387
  • Country: fr
  • Liked: 145
  • Likes Given: 372
Re: New Basic Demo for CPC 6128
« Reply #6 on: 02:00, 14 February 16 »
Hi and welcome Bytebreaker! Welcome like the name of the original Amstrad CPC demo  ;) and your cool BASIC demo. Really well done, I find it lovely as other.

Offline Fessor

  • CPC6128
  • ****
  • Posts: 262
  • Country: de
  • Liked: 297
  • Likes Given: 50
Re: New Basic Demo for CPC 6128
« Reply #7 on: 02:14, 14 February 16 »
@Bytebreaker
With Programming:Unlocking a protected basic file - CPCWiki you can unprotect the Basicfile and list it.








Offline Morri

  • CPC6128
  • ****
  • Posts: 284
  • Country: nz
  • Liked: 237
  • Likes Given: 216
Re: New Basic Demo for CPC 6128
« Reply #8 on: 02:54, 14 February 16 »
Well done! For a first time demo this is very good. You have already addressed some very complicated aspects of Locomotive Basic. 8)
Keeping it Kiwi since 1977

Offline Bytebreaker

  • CPC664
  • ***
  • Posts: 66
  • Country: de
  • Liked: 84
  • Likes Given: 77
Re: New Basic Demo for CPC 6128
« Reply #9 on: 12:12, 14 February 16 »
@ Fessor

Great! Thanks for the hint.

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 649
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 652
  • Likes Given: 379
Re: New Basic Demo for CPC 6128
« Reply #10 on: 13:15, 14 February 16 »
Cool :)

Welcome / Willkommen !

And we use Schneider, not Amstrad *lol*



Offline Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 17.010
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 4086
  • Likes Given: 7383
Re: New Basic Demo for CPC 6128
« Reply #11 on: 19:26, 17 March 16 »
A bit late, but welcome! As a kid I loved all those little lines/shapes demos in magazines...