home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 28
/
028.d81
/
64-assembly
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
853b
|
23 lines
10 print"[147][144] [206]ow [208]laying 64-[193][211][211][197][205][194][204][217] ..."
100 rem c-64 assembly - louis f. sander
110 s=54272:pokes+5,9:pokes+6,144:pokes+24,15
115 forn=1to4:readn(n,1),n(n,2):next
120 readno,du:ifno=0then1000
130 pokes+1,n(no,1):pokes,n(no,2):pokes+4,17:forj=1to15*du:next:pokes+4,16
140 forj=1to50:next:goto120
150 data012,143,016,195,021,031,025,030
160 data1,06,1,02,2,06,1,02,2,06,3,02
170 data2,12,2,04,2,02,3,06,2,02,3,06
180 data4,02,3,12,2,06,3,02,4,12,3,06
190 data2,02,1,12,1,06,1,02,2,12,2,06
200 data2,02,2,18,0,00
1000 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1005 print" [221][208]ress: [198]1 - [210][213][206] this program again. [221]"
1010 print" [221] [198]7 - [210]eturn to [212]ips & [212]ricks.[221]"
1015 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1020 geta$:ifa$="[133]"thenrun
1030 ifa$<>"[136]"then1020
63995 print"[147] [210]eturning to [212]ips & [212]ricks [205]enu."
63998 print"[159]l[207]";chr$(34);"tips & tricks";chr$(34);",8"
63999 poke631,13:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:new