10 REM  ********************
15 REM  *                  *
20 REM  * ALAN VERSION 7.0 *
25 REM  *                  *
30 REM  *     D E M O      *
35 REM  *                  *
40 REM  *       VON        *
45 REM  *                  *
50 REM  * ANDREAS PUSTELNY *
55 REM  *                  *
60 REM  *       UND        *
65 REM  *                  *
70 REM  *  ALEXANDER GASS  *
75 REM  *                  *
80 REM  *       1986       *
85 REM  *                  *
90 REM  *   (C) BY 64'ER   *
95 REM  *                  *
99 REM  ********************
100 :
110 REM  **  UTILIY DEMO **
120 :
130 POKE53280,6:POKE53281,0:POKE646,15
140 (null) 0:(null) 2
150 PRINT "  BITTE LEGEN SIE EINE DISKETTEN IN "
160 (null) 4
170 PRINT "  DAS LAUFWERK #8."
180 (null) 6
190 PRINT "  DRUECKEN SIE DANACH EINE TASTE !"
200 GOSUB 10000
210 (null) 0
220 (null)
230 GOSUB10115
240 (null) 0
250 (null) 2
260 PRINT "  DAS WAR DIE DIRECTORY "
270 GOSUB 10115
280 (null) 0
300 (null) 2
310 PRINT "";:(null)
320 (null) 4
330 PRINT "   ^   ^  ^  ^"
340 PRINT "   [194]   [194]  [194]  [173][195] SECTOR"
350 PRINT "   [194]   [194]  [173][195][195][195][195] BLOCK "
360 PRINT "   [194]   [173][195][195][195][195][195][195][195] FEHLERBEZEICHNUNG"
370 PRINT "   [173][195][195][195][195][195][195][195][195][195][195][195] FEHLERNUMMER"
380 (null) 10
390 PRINT "  DIES IST DAS STATUSREGISTER DES"
400 (null) 12
410 PRINT "  LAUFWERKES #8."
420 GOSUB 10100
430 (null) 0
440 FOR I=0 TO 39
450 (null) SIN(I/5)*6+12
460 PRINT TAB(I);"*"
470 NEXT
480 GOSUB 10100
490 (null)1
500 (null)3,0:(null):(null)1
510 PRINT"    NUN SEHEN SIE EINIGE GRAFIKDEMOS"
515 (null)0
520 FORI=1TO1500:NEXT
530 (null)1
540 FORI=1TO152STEP4
550 (null)I,I,I/2,I/3
555 (null)319-I,I,I/2,I/3
560 NEXT
570 GOSUB 10200
580 (null)
590 FORI=1TO320STEP4
600 (null)COS(I/15)*20+50,I/1.6,319-2*ABS((COS(I/15)*20+50))
610 NEXT
620 (null) 88,29,144,144
621 (null)1
625 FORI=25+KTO70STEP5
630 (null)160,100,I,I
640 NEXT
650 K=K+1
660 IFK<5THEN625
730 (null)0
740 GOSUB 10000:END
10000 GETA$:IFA$=""THEN10000
10005 (null)
10010 RETURN
10100 REM  ** TASTENDRUCK ? **
10110 FOR I=1 TO 3000:NEXT
10115 (null) 1,11,38,3,1
10120 PRINT "BITTE DRUECKEN SIE EINE TASTE."
10130 GOSUB 10000
10140 (null)
10150 FOR I=1 TO 500:NEXT
10160 RETURN
10200 FOR I=1 TO 2000:NEXT
10210 RETURN