home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
DEMOS2.LHZ
/
-jumpman
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1993-12-17
|
2KB
|
50 lines
5 DEFFNR(X)=1566+INT(RND(1)*8)+INT(RND(1)*8)*40
10 POKE53281,0:POKE53280,12:PRINT"[150][147][142] J[150]UM[150]PM[150]AN [150]JU[150]NI[150]OR"
15 FORA=1TO7:READB$(A):NEXT:A$(1)=" [146]":A$(2)=" [146] [146]"
17 FORA=1TO10:READJ$(A):NEXT
18 FORA=1TO7:READF$(A):NEXT
20 PRINT"":FORA=1TO9:PRINTTAB(30)A$(1):PRINTTAB(30)A$(2):NEXT
25 PRINT"[145]";:FORA=1TO2:PRINT"[150] [146]";:NEXT
30 PRINT"":FORA=1TO9:PRINTTAB(12);J$(A):NEXT:PRINT""
35 FORA=0TO6000:NEXT
40 FORA=1TO7:PRINT"[154]":FORB=1TO7:PRINTRIGHT$(B$(B),A):NEXT
43 FORB=1TO160:NEXT:NEXT
44 B$(1)=" [167] ":B$(2)=" [206][183][183][205]"
45 FORA=1TO10:PRINT"[154]":FORB=1TO7:PRINTTAB(A)B$(B):NEXT
46 PRINT"":FORB=1TOA:PRINT"[145]";:NEXT
47 FORB=1TO10:PRINTTAB(12)J$(B):NEXT:NEXT
50 FORA=11TO23:PRINT"[154]":FORB=1TO7:PRINTTAB(A);B$(B):NEXT
55 FORB=1TO160:NEXT:NEXT
60 FORA=1TO4:FORB=2TO10STEP8:PRINT"":POKE646,B
65 FORC=1TO7:PRINTTAB(23)F$(C):NEXT:FORC=1TO150:NEXT:NEXT:NEXT
70 J$(0)=J$(10):FORA=10TO1STEP-1:PRINT"":FORB=1TOA:PRINT"[145]";:NEXT
73 FORB=1TO5:G=FNR(.):POKE54272+G,2:POKEG,42:NEXT
75 FORB=0TO9:PRINTTAB(12)J$(B):NEXT:NEXT
80 PRINT"[153]PRESS SPACEBAR TO EXIT THE DEMO!"
85 GETA$:IFA$<>" "THEN85
100 PRINT"[154][147] ";:POKE53281,6:POKE53280,14:POKE198,0:CLR:END
1000 DATA" [167] "
1010 DATA" [206][183][183][205] "
1020 DATA" [206][164][164][164][164][205]"
1030 DATA" [207][172][187][172][187][208]"
1040 DATA" [204][188][190][188][190][186]"
1050 DATA" [205][163][163][163][163][206]"
1060 DATA" [205][175][175][206] "
1090 DATA" [146] "
1100 DATA" [146] [146] "
1110 DATA" [146] "
1120 DATA" [146] [146] "
1130 DATA" [146] [146] "
1140 DATA" [156] [146] "
1150 DATA" [156] [146] "
1160 DATA" [156] [146] [146] "
1170 DATA" [146] [146] "
1180 DATA" "
1200 DATA" [205][194][194][206] "
1210 DATA" [205][205][205][206][206][206]"
1220 DATA"[205][205]***[206][206]"
1230 DATA"[195][205]***[206][195]"
1240 DATA"[195][206]***[205][195]"
1250 DATA"[206][206][206][206][205][205][205]"
1260 DATA" [206][206][194][205][205] "