1 REM "B.DAO" 2000.07.16
2 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB100:DV=PEEK(186):IFDV<8ORDV>29THENDV=8
4 POKE53371,0:POKE788,49
5 TQ=TI
6 IFTI<TQ+200THEN6
10 PRINT"[144]LOAD"CHR$(34)"DAO"CHR$(34)","DV:PRINT"RUN:"
20 POKE214,17:PRINT:POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
100 Z$=" [152]                                      ":POKE214,5:PRINT
102 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO8:PRINTZ$:NEXT
104 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
106 Z$(0)="[196] [193] [207]":Z$(2)="BY [204]ANCE [195]. [212]HOMAS"
108 Z$(4)="([195]) 2000 BY [202] & [198] [208]UBLISHING, [201]NC."
112 Z$(6)="1-318-868-8727"
114 POKE214,7:PRINT:FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
10000 D=PEEK(186):N$="0:B.DAO":OPEN1,D,15,"S"+N$:SAVEN$,D:END