Author Topic: [Locomotive Basic] - Scrolling  (Read 443 times)

0 Members and 1 Guest are viewing this topic.

Offline Fabrizio Radica

  • Supporter
  • CPC664
  • *
  • Posts: 135
  • Country: it
  • Amiga and CPC6128 User
    • Retroacademy
  • Liked: 126
  • Likes Given: 122
[Locomotive Basic] - Scrolling
« on: 19:14, 03 July 19 »
Hi :)

I've made a simple "Multiple FAST" scrolling in Locomotive Basic :)
Code: [Select]
10 defint x,j,y,h,u,k,o:mode 0:border 0:ink 0,0:ink 1,26:x=1:x2=1:y=5:symbol after 250
15 symbol 255,1,54,78,32,67,92,88,1
20 tag:move k,180-y:print " "+chr$(249);:k=6+k mod 320:move u,200-y:print " "+chr$(249);:u=8+u mod 320
30 h=31+(h mod 320):move x+h,100-y:print chr$(255);:
40 move j+h,300-y:print chr$(255);:tagoff:
50 locate 12-o,y:print chr$(255)+" ";:o=1+o mod 10
60 goto 20
not optimized...
Amstrad CPC6128 <3
http://www.facebook.com/groups/retroacademy/
Retroacademy.it - retrocomputing, retrogame anni &#039;70, &#039;80, &#039;90
Retroacademy.it - retrocomputing, retrogame anni '70, '80, '90

Offline AMSDOS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 3.764
  • Country: au
    • index.php?action=treasury
    • Programs for Turbo Pascal 3
  • Liked: 1011
  • Likes Given: 1723
Re: [Locomotive Basic] - Scrolling
« Reply #1 on: 12:56, 04 July 19 »
Interesting.


I used INK Palette Switching to create the Illusion of Horizontal Movement which later on I found others were doing the same with Locomotive BASIC. With the scenery in place line 220 sets between the alternating colours and line 230 regulates the SPEED between the alternating colours. I found going any smaller than SPEED INK 3,3 and it's too fast.


Code: [Select]

100 MODE 0:INK 2,13:INK 3,3:INK 4,0:INK 5,0:DEFINT a-z
110 SYMBOL 255,126,131,129,129,139,85,170,84
120 SYMBOL 254,0,124,126,126,116,0,0,0
130 i1=4:i2=2:x=6:y=7
140 WHILE x<15
150   i=i1
160   GOSUB 1000
170   x=x+1
180   i=i2
190   GOSUB 1000
200   x=x+1
210 WEND
220 INK 2,13,0:INK 3,3,0:INK 4,0,13:INK 5,0,3
230 SPEED INK 5,5
240 PEN 1:END
1000 PRINT CHR$(22)+CHR$(1);
1010 FOR c=255 TO 254 STEP -1
1020   LOCATE x,y
1030   PEN i
1040   PRINT CHR$(c);
1050   i=i+1
1060 NEXT c
1070 PRINT CHR$(22)+CHR$(0)
1080 RETURN
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3