home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
pet-simulator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
33 lines
1 REM *********************************
2 REM * PET - SIMULATOR *
3 REM * *
4 REM * (C) BY W. HOPF 1984 *
5 REM *********************************
6 :
7 REM PROGRAMM VOR DEM START ABSPEICHERN
8 :
10 FORI=49152TO49152+91:READA:SU=SU+A
20 POKEI,A:NEXT
30 IFSU<>12552THENEND
40 PRINT"[147]BITTE WAEHLEN SIE DIE ZEICHENFARBE"
50 PRINT"(0-15 EINGEBEN)!"
60 INPUTZF:IFZF>=0ANDZF<=15THENPOKE49239,ZF:POKE646,ZF:GOTO80
70 PRINT"NICHT ERLAUBT":FORI=1TO1000:NEXT:GOTO40
80 SYS49152:POKE1,54:PRINT"[147]PET-SIMULATOR AKTIV":NEW
10000 DATA160,0,132,254,169,160,133,255
10005 DATA177,254,145,254,200,208,249,230
10010 DATA255,166,255,224,192,208,241
10015 DATA169,5,141,0,221,141,24,208,169
10020 DATA128,141,136,2,133,56,169,4
10025 DATA133,44,169,0,141,0,4,169
10030 DATA63,141,37,184,169,192,141,38
10035 DATA184,169,193,141,24,3,96,32
10040 DATA235,183,24,165,21,201,128,144
10045 DATA18,201,132,176,14,24,105,88
10050 DATA133,255,165,20,133,254,169,0
10055 DATA234,145,254,96
60000 :
60010 REM LISTE DER VERWENDETEN COMMODORE-STEUERZEICHEN
60020 REM "[147]" = CLR
60030 REM "" = CRSR-DOWN