home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Computer Club 13
/
Commodore_Computer_Club_13_19xx_-_es.d64
/
sumario
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
86 lines
10 poke 53280,1:poke53281,1
20 a=a+1:ifa=1thenload"sumario cm",8,1
30 poke56,50:clr
40 v=53248
50 print"[147]";
60 pokev+21,0
100 print" "
110 print" grupo de trabajo software sa [144][146][161]"
120 print" [144][146][161]"
130 print" [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
140 print" [156] "
145 print" [156] suscribase por telefono: 2666601-2 [144][146][161]"
150 print" [156] [144][146][161]"
155 print" [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
200 print" "
210 print" dirigir la correspondencia a:[144][146][161]"
220 print" grupo de trabajo software sa [144][146][161]"
230 print" c/ bailen n-20 1 madrid [144][146][161]"
250 print" [144][146][161]"
260 print" [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
262 getg$:ifg$=""then262
266 print"[147]";
270 print" "
274 print" este podria ser uno de tus programas [144][146][161]";
276 print" animate y mandanos tus mejores pro- [144][146][161]";
278 print" gramas. podras ganar hasta 5000 pts. [144][146][161]";
280 print" [144][146][161]";
282 print" [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
300 pokev+41,15:pokev+42,15
310 pokev+39,6:pokev+40,2
320 fort=0to3
330 pokev+1+2*t,182:next
340 pokev+2,0:pokev+4,0:pokev+6,0
350 pokev+21,15
360 poke2040,200:poke2041,201
370 poke2042,202:poke2043,203
400 fort=0to140:pokev,t:next
410 fort=0to140:pokev+2,t:next
420 fort=0to170:pokev+4,t:next
430 fort=0to185:pokev+6,t:next
440 c=0
450 fort=0to3:pokev+39+t,c
460 for l=0 to 100: next
465 next
470 c=c+1:ifc>255thenc=0
480 getg$:ifg$=""then450
490 pokev+21,0
500 poke53280,0:poke53281,0:poke646,14
520 print"[147]
560 [153]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^"
570 [153]" peek sumario peek"
580 [153]" peek sprite simetrico peek"
590 [153]" peek fronton peek"
600 [153]" peek pintar peek"
610 [153]" peek directorio peek"
620 [153]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
700 [153]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^"
710 [153]" peek renumerador peek"
720 [153]" peek nave peek"
730 [153]" peek test teclado peek"
740 [153]" peek pregunton peek"
750 [153]" peek laberinto peek"
760 [153]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
800 [151]198,0
900 [135]a:[139]a[178][171]1[167]2000
940 [151]a[170]1064,2[170](a[179]500)
950 [129]t[178]0[164]001:[130]
990 [137]900
1000 [131] 83,123,124,163,165,203,204,205,206,243,247,283,288
1100 [131] 563,564,603,605,643,645,683,684,685,686,723,727
1110 [131] 763,764,765,766,-1
2000 c[178]c[170]1:[141]3000
2100 [137]2000
3000 [129]i[178]0[164]5
3020 [129]t[178]0[164]5
3050 [151]55419[170]t[170]40[172]i,c
3100 [130]
3110 [130]
3200 [129]i[178]0[164]5
3220 [129]t[178]0[164]5
3250 [151]55899[170]t[170]40[172]i,c
3300 [130]
3310 [130]
3400 [142]
5000 [128]