C64 Software  <  SCA: The C64 Software Collection / ÂUTEC ÚEICHNSATZ

  Run
100 IFPEEK(49153)<>49THENLOAD"",8,1
110 SYS49152
120 :
130 REMOPEN1,4:CMD1,"";
140 PRINT"";
150 PRINT""
160 :
170 PRINT""
200 PRINTSPC(30)""SPC(16)""SPC(30)"";
210 PRINT"";
211 FORI=1TO88:PRINT"";:NEXT:PRINT
220 PRINT""
230 PRINT""
240 PRINT""
250 PRINT""
260 PRINT""
270 PRINT""
280 PRINT""
290 PRINT""
300 PRINT""
310 PRINT""
320 PRINT""
330 PRINT""
340 PRINT""
350 PRINT""
360 PRINT""
370 PRINT""
380 PRINT""
390 PRINT""
400 PRINT""
410 PRINT""
420 FORI=21TO30:GOSUB1000:NEXT
430 PRINT""
440 PRINT""
450 FORI=33TO64:GOSUB1100:NEXT
460 FORI=1TO64:PRINT"";:FORJ=1TO111:NEXT:NEXT
461 PRINT"";
462 :
470 FORI=65TO122:GOSUB1200:NEXT
480 PRINT""
490 PRINT""
500 PRINT""
510 PRINT""
520 PRINT""
530 PRINT#1:CLOSE1:END
540 :
1000 PRINTRIGHT$(""+MID$(STR$(I),2),3)""CHR$(I)""CHR$(64+I)
1010 RETURN
1100 PRINTRIGHT$(""+MID$(STR$(I),2),3)""CHR$(I)
1110 RETURN
1200 PRINT""RIGHT$(""+MID$(STR$(I),2),3)""CHR$(I)
1210 RETURN
READY.