90 POKE198,0
100 IFI=0THENI=1:LOAD"DDLOGO",8,1
105 POKE53280,2
110 POKE55,0:POKE56,92:CLR
120 POKE53265,59
130 POKE53272,120
140 POKE56576,PEEK(56576)AND254
150 GOTO250
155 POKE55,0:POKE56,160
160 POKE53265,27
170 POKE53272,21
180 POKE56576,PEEK(56576)OR1
190 PRINT"[147]";:POKE53280,6:POKE53281,0:PRINTCHR$(14);
195 PRINT"[158][204]OADING [205]AIN [205]ENU....[144]"
200 PRINT"LOAD";CHR$(34);"DIR 1";CHR$(34);",8,1"
210 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
220 POKE631,13:POKE632,13:POKE198,2:END
250 DIM HI(25),LO(25),DU(25),H3(64),L3(64)
260 POKE 54291,134:POKE 54277,136:POKE54284,136
270 POKE 54292,136:POKE 54278,134:POKE54285,134
280 POKE 54290,17:POKE 54276,17:POKE54283,17
290 POKE 54272,00:POKE 54273,33
300 POKE54279,59:POKE54280,33
310 FOR X=1 TO 25:READ HI(X),LO(X):NEXT X
320 FOR X=1 TO 25:READ DU(X):NEXT X
330 FOR X=1 TO 64:READ H3(X),L3(X):NEXT X
340 POKE 54296,15
350 B=1:FOR X=1 TO 25
360 GETAN$:IFAN$=CHR$(13)THEN460
370 POKE 54272,LO(X):POKE 54273,HI(X)
380 POKE 54279,LO(X)+45:POKE54280,HI(X)
390 FOR N=1 TO DU(X)
400 POKE54286,L3(B):POKE54287,H3(B)
410 B=B+1
420 FOR L=1 TO 145:NEXT
430 NEXT N
440 NEXT X
450 GOTO350
460 S=54272:FORI=0TO24:POKES+I,0:NEXT:GOTO155
470 DATA 16,195,21,31,25,30
480 DATA 28,49,21,31,28,49
490 DATA 33,135,37,162,25,30
500 DATA 33,135
510 DATA 28,49,33,135,28,49
520 DATA 25,30,28,49,31,165
530 DATA 33,135,37,162,28,49
540 DATA 37,165,33,135,31,165
550 DATA 25,30,22,96,18,209
560 DATA 4,2,2,3,1,4,4,2,2,8
570 DATA 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2
580 DATA 8,97,16,195,8,97,16,195,8,97,16,195
590 DATA 8,97,16,195,8,97,16,195,8,97,16,195
600 DATA 8,97,16,195,8,97,16,195,8,97,16,195
610 DATA 8,97,16,195,8,97,16,195,8,97,16,195
620 DATA 8,97,16,195,8,97,16,195,8,97,16,195
630 DATA 8,97,16,195
640 DATA 5,152,11,48,5,152,11,48,5,152,11,48
650 DATA 5,152,11,48
660 DATA 6,71,12,143,6,71,12,143,6,71,12,143
670 DATA 6,71,12,143,6,71,12,143,6,71,12,143
680 DATA 6,71,12,143,6,71,12,143,6,71,12,143
690 DATA 6,71,12,143,6,71,12,143,6,71,12,143