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