home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
demo5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
75 lines
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