[Tuto] Display a screen with an ASM left scroll.

Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
Post Reply
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

[Tuto] Display a screen with an ASM left scroll.

Post by XavSnap »

Hi,

Cap0123.jpg
Cap0123.jpg (6.23 KiB) Viewed 1064 times
PRN0006.jpg

Code: Select all

 # VB81 XuR [dog walk (1).p] 
 #  Empty Basic Segment.
 # 15441/15464 : 3C51/3C68
1 REM [HEX:\
2A,0C,40,0E,16,23,7E,06,1F,F5,23,7E,2B,77,23,10,\
F9,F1,77,23,0D,20,EE,C9 ]
2 REM fROM xAVsNAP

5 DIM A$(17,32)
6 LET T=31
10 LET A$(1)="°º¬º  °®¼ $     ¯·¼±²¹ ®·¼±    ¯"
11 LET A$(2)="°º¶±®®¼    $$$²¹  ¼¶¬¬²ªº¼¶»±²¸¹"
12 LET A$(3)="°º  ¹ º      ²¼$ ²ª ±¹·®²ª ±»·®¶"
13 LET A$(4)="°º¹ ·¶±      ºº $ ¾¾¾¾¾¾¾¾¾¾¾¾¾¾"
14 LET A$(5)="°ºª   °      ¯¬±¹$²®¹"
15 LET A$(6)="°º¼¹  °    ²¹®¬¶¬¸¶ ¸ª ¯¸¹²¹ ®¹°"
16 LET A$(7)="°º º  °   ²¶¸¶ °¶  - -º° ºº°°²¹°"
17 LET A$(8)="°º º ½° ²¼¸    ° º²²²²º¬®¶±»·®º²"
18 LET A$(9)="°º º  » » ²¬¸º º º·¸·¸º¾¾¾¾¾¾¾¾¾"
19 LET A$(10)="°º ¯  º ª¬¸ /¯®º ±  ²®ª"
20 LET A$(11)="°º ·¹ ª ¸   / °  ° =±ª¯"
21 LET A$(12)="°º °º´½º  ¾½½¾°  »¸«¶ ¬"
22 LET A$(13)="°º ¬µ½µ¶ ¾½½¾ ·ª¬²²¼«¸¶"
23 LET A$(14)="°º ¯µ¼¶ ½½½½½  °¶°¯¹·º"
24 LET A$(15)="°º       ¿¿¿   ¬ » ± ¯®"
25 LET A$(16)="°º            »¶²¶  ± ²º"
26 LET A$(17)="°º            ª®º    ¸¸"
30 GOSUB 1000
40 PRINT AT 1,0;"º";TAB T;"°";TAB 0;"º";TAB T;"°";AT 8,10;"cRAYON ™˜";AT 10,11;"PRESENT" 
50 FOR A=1 TO 32
60 PRINT AT 3,T;A$(1,A);TAB T;A$(2,A);TAB T;A$(3,A);TAB T;A$(4,A);TAB T;A$(5,A);TAB T;A$(6,A);TAB T;A$(7,A);TAB T;A$(8,A);TAB T;A$(9,A);TAB T;A$(10,A);TAB T;A$(11,A);TAB T;A$(12,A);TAB T;A$(13,A);TAB T;A$(14,A);TAB T;A$(15,A);TAB T;A$(16,A);TAB T;A$(17,A)
65 RAND USR 16514
70 NEXT A
80 STOP
1000 FOR B=0 TO 31 STEP 4
1010 PRINT AT 0,B;"««««";AT 20,B;"««««"
1020 NEXT B
1030 RETURN
SCROLL.P
(2.92 KiB) Downloaded 112 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply