home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
702b
|
27 lines
10 REM DEMO
20 REM BY
30 REM STEFAN LANDFRIED
40 REM KELHEIMERSTR. 9
50 REM 8421 PAINTEN
70 REM
72 IFA=1THEN90
74 PRINT"[147] ANDERE FARBEN (Y/N) ?"
75 GETA$:IFA$=""THEN75
76 IFA$="Y"THEN190
80 IFA=0THENA=1:LOAD"ALLEY. SIM.",8,1
90 SYS49152,130,2,8,0:
100 REM IN ZEILE 10 ((8*10)+50)
110 REM ZIEMLICH SCHNELL UND ALLE BALKEN
120 PRINT"[144][147]"
130 PRINT" THIS IS ONLY A LITTLE DEMO "
140 GETA$:IFA$=""THEN140
150 GOTO150
160 REM FARBENTAUSCH
170 REM
180 REM
190 FORI=49278TO49308:READA:POKEI,A:NEXT:GOTO90
200 DATA11,12,15,15,15,1,12,11,4,6,6,14,,1,14,14,6: REM 16 FARBEN
210 DATA4,2,2,10,1,10,10,2,5,13,3,3,3,1,13,5: REM INSGESAMT 32 FARBEN
220 REM IN DEN DATAZEILEN KOENNEN DIE GEWUENSCHTEN FARBEN EINGETRAGEN WERDEN
230 REM END