home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1987 #1
/
Floppy_Magazine_87-1_1987_Megasystems_Oy_fi_Side_A.d64
/
pomppu.basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
144 lines
5 a=a+1:ifa=1thenload"pomppu.s",8,8:rem -*tama rivi ei ole kaannoksessa mukana*-
6 rem"varsinainen kaannetty ohjelma alkaa seu-raavalta rivilta
10 [151] 53281,0
30 [151]53280,11
40 tu[178]0
41 pa[178]0
50 [153]"load"
70 [141] 1410
90 [151]2040,230
110 [151]2041,231
120 tu[178]0
121 r[178]7
122 [141]2040
125 [153]" 0 "
130 x[178]100
150 y[178]100
170 ap[178]100
190 k[178]3
200 vt[178]0
210 ko[178]50
220 ta[178]1417
230 al[178]1.5
250 [141]1090
270 [151]53269,3
290 [151]53249,215
310 a[178][194](56320)
330 f[178]a [175] 16
350 a[178]a [175] 15
370 a[178]15[171]a
390 [139] f[178]16 [167] [137] 430
410 [141] 730
430 [139] a[178]4 [167] [141]810
450 [139] a[178]8 [167] [141]870
470 [151]53248,ap
490 x[178]x[170]x1
510 y[178]y[170]y1
530 [139] x[177]254 [167] [141] 930
550 [139]x[179]24 [167] [141] 930
570 [139]y[179]ko [167] [141] 930
590 [151]53250,x
610 [151]53251,y
630 [139] [194](53278)[178]0 [167] [137] 670
650 [141]1090
670 [139] y[177]210 [167] [137] 710
680 p[178]p[170]1
682 [139] p[178]50 [167] [141] 700
690 [137] 310
700 tu[178]tu[170]1
702 [139] tu[177]pa [167] pa[178]tu
703 p[178]0
704 [141]2015
705 [142]
710 [153]" sys(NULL)eli loppu!"
712 [141] 2005
713 [137] 50
730 [139] k[179]0 [167] [142]
740 [139] tu[178]vt [167] [142]
745 vt[178]tu
750 k[178]k[171]1
770 y1[178][171]y1
775 [151] ta,160
776 ta[178]ta[170]2
790 [142]
810 ap[178]ap[171]1
830 [139] ap[179]24 [167] ap[178]24
850 [142]
870 ap[178]ap[170]al
890 [139] ap[177]255 [167] ap[178]255
910 [142]
930 [139] x[177]254 [167] x1[178][171]x1
950 [139] x[179]24 [167] x1[178][171]x1
970 [139] y[179]ko [167] y1[178][171]y1
990 n[178][187](1)
1010 n[178]4[172]n
1030 n[178][181](n)
1050 [139] n[178]2 [167] [141]1290
1060 [139]x[177]254 [167] x[178]254
1061 [139]x[179]24 [167] x[178]24
1062 [139]y[179]ko [167] y[178]ko
1070 [142]
1090 x1[178][187](1)
1110 x1[178]x1[172]3
1130 x1[178]x1[171]1.5
1150 y1[178][187](1)
1170 y1[178][171]y1
1190 n[178][182](x1)
1210 [139] n[179]0.3 [167] [137] 1090
1230 n[178][182](y1)
1250 [139] n[179]0.3 [167] [137] 1090
1270 [142]
1290 sx[178][180](x1)
1310 sy[178][180](y1)
1330 [141]1090
1350 x1[178]x1[172]sx
1370 y1[178]y1[172]sy
1390 [142]
1410 [153]"loadcont cmdcmdcmdcmdcmdcmdcmdcmd";
1450 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1470 [153]" (NULL)omppu cmdcmdcmdcmdcmdcmdcmdcmd";
1490 [153]" tab(tab(tab(tab(tab(tab( cmdcmdcmdcmdcmdcmdcmdcmd";
1510 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1530 [153]" (NULL)ulos: cmdcmdcmdcmdcmdcmdcmdcmd";
1550 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1570 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1590 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1610 [153]" * * * *cmdcmdcmdcmdcmdcmdcmdcmd";
1630 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1650 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1670 [153]" (NULL)aras: cmdcmdcmdcmdcmdcmdcmdcmd";
1690 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1710 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1730 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1750 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1770 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1790 [153]" ortantantantan^ cmdcmdcmdcmdcmdcmdcmdcmd";
1810 [153]" (NULL)1986(NULL) cmdcmdcmdcmdcmdcmdcmdcmd";
1830 [153]" (NULL) chr$(NULL) (NULL) cmdcmdcmdcmdcmdcmdcmdcmd";
1850 [153]" /tantantantanexp cmdcmdcmdcmdcmdcmdcmdcmd";
1870 [153]" cmdcmdcmdcmdcmdcmdcmdcmd";
1890 [153]" "
1910 i[178]2016
1930 [151] i,160
1940 j[178]i[170]54272
1950 [151] j,14
1960 i[178]i[170]1
1970 [139] i[179]2024 [167] [137] 1930
2001 [141] 2015
2005 a[178][194](56320)
2006 a[178]a [175] 16
2009 [139] a[178]16 [167] [137] 2005
2014 [142]
2015 r[178]7
2016 [141]2040
2019 [153]"";tu
2020 r[178]14
2022 [141]2040
2024 [153]"";pa
2030 [142]
2040 [151]781,r
2042 [151]782,32
2044 [151]783,0
2045 [158]65520
2046 [142]