home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1986 #3
/
Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64
/
mx
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
120 lines
100 ifsy=1thengosub940:sysv
110 ifsy=2thenpoke56,160:poke52,160:new
120 poke56576,196:poke53272,19:poke648,196:poke53280,4:poke53281,7
130 x=-1:print"[147]";
140 reada$,a$,a:ifa=>.thenx=x+1:goto140
160 poke56576,196:poke53272,19
170 restore:dim n$(x),f$(x),e(x)
180 fort=.tox:readn$(t),f$(t),e(t):next
190 cd$=""
200 poke53280,4:poke53281,7
201 print"[147][156] [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] ";
202 print" [221] [198][204][207][208][208][217] [205][193][199][193][218][201][206][197] 3/1986 [156] [221] ";
210 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] ";
220 print"[156] "
230 printcd$;"[156] [146]";
240 print"[156] [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] ";
250 print" [221][167][167][170][170][182][182][161][161][146] ([195]) [208]rotocol [207]y [146] [161][161][181][181][180][180][165][165][156][221] ";
260 print"[156] [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]"left$(cd$,12)
270 t=.:n0=.
280 printtab(4)n$(t):ift=xort=8thengosub920:goto300
290 t=t+1:goto280
300 geti$:ifi$=""then300
310 i=asc(i$):ifi=17then360
320 ifi=145then390
330 ifi=13then430
340 ifi=32thenpm=1:goto430
350 goto300
360 ifn0=xthen300
370 n0=n0+1:gosub930:sys16240:gosub920:ifn0+8>xthen300
380 printleft$(cd$,21)tab(4)n$(n0+8):goto300
390 ifn0=.then300
400 n0=n0-1:gosub930:sys16304:gosub920:ifn0<8then300
410 print" "n$(n0-8):goto300
430 rem
450 v=e(n0):f$=f$(n0)
455 ifright$(f$,2)=".n"thenpoke816,165:poke817,244:f$=left$(f$,len(f$)-2)
460 rem 0=nothing/1=help/2=music/3=load by ,8/4='' ,8,1/5=text file/>5=load+sys
470 onv+1goto300,630,620,570,610,490
480 gosub860:sy=1:loadf$,8,1
490 gosub860:f$=f$+",s":gosub500:goto200
500 ifpmthenpm=.:goto520
510 open1,8,0,f$:sys16384:return
520 print"[147][212]ulostetaanko teksti (k/e) ? [146][157]";
530 geta$:ifa$="e"thenreturn
540 ifa$<>"k"then530
550 printa$;:open2,4,7:open1,8,0,f$
560 sys16128:close1:close2:return
570 gosub860:poke648,4:print"[147]"
580 poke631,13:poke632,13:poke633,13:poke198,3
590 print"p[207]56,160:p[207]52,160:clr:load"chr$(34)f$chr$(34)",8"
600 print"p[207]56576,151:p[207]53272,21:r[213]":end
610 gosub940:sy=2:loadf$,8,1
620 gosub890:goto300
630 print"[147][182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]";
640 print"[182] [193][208][213][193] [181]";
650 print"[182] [175][175][175][175][175][175] [181]";
660 print"[182] [195][210][211][210] [146] - [206][pp[in liikuttaa valikkoa [181]";
670 print"[182] [183][183][183][183][183][183] yl\s alas. [181]";
680 print"[182][175][175][175][175][175][175][175][175] [181]";
690 print"[182] [210][197][212][213][210][206] [146] - [206][pp[imell[ voit lukea [181]";
700 print"[182][183][183][183][183][183][183][183][183] t[hden osoittaman [181]";
710 print"[182] artikkelin tai k[ynnist[[ [181]";
720 print"[182] ohjelman. [181]";
730 print"[182] [175][175][175][175][175][175][175] [181]";
740 print"[182] [211][208][193][195][197] [146] - [206][pp[in toimii samoin kuin [181]";
750 print"[182] [183][183][183][183][183][183][183] [210][197][212][213][210][206] [146] mutta tulostaa [181]";
760 print"[182] artikkelin printterille. [181]";
770 print"[182] [181]";
780 print"[182] [193]rtikkelia lukiessasi saat [181]";
790 print"[182] lis[ohjeita [198] 8 [146] n[pp[i- [181]";
800 print"[182] mell[.[212]akaisin valikkoon [181]";
810 print"[182] p[[set [198] 6 [146] n[pp[imell[. [181]";
820 print"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]"
830 print"paina [210][197][212][213][210][206] [146]
840 [161]a$:[139]a$[178]""[167]840
850 [137]200
860 rk[178][181]([187]([255])[172]2)[170]1:[141]900
870 v$[178]"mainos"[170][201]([196](rk),1)
880 [159]1,8,2,v$[170]",s":[158]17408:[142]
890 [139][194](788)[178]49[167][158]32787:[142]
900 [158]16225:[151]54296,0:[142]
920 [153][200](cd$,13)" *":[142]
930 [153][200](cd$,13)" ":[142]
940 [151]56576,151:[151]53272,21:[151]648,4:[153]"load":[142]
950 [131] "contatn(NULL)(NULL)atn","",1
960 [131] "","",0
970 [131] "(NULL)(NULL)(NULL)(NULL)right$(NULL)mid$(NULL)right$(NULL)(NULL)(NULL)",paakirj3/86,5
980 [131] "","",0
990 [131] "cont(NULL)atn(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)right$right$(NULL)(NULL)right$","",2
1000 [131] "","",0
1010 [131] "atn(NULL)(NULL)right$(NULL)(NULL)val(NULL)right$(NULL)","",0
1015 [131] "","",0
1020 [131] " lenastlen ohjelmarakenne",castle.art,5
1030 [131] " (NULL)evykkeen editoimisesta",floppy.art,5
1090 [131] "","",0
1100 [131] "stop(NULL)atn(NULL)(NULL)(NULL)atn(NULL)","",0
1101 [131] "","",0
1110 [131] " (NULL)iksipalsta",niksit3/86.pal,5
1112 [131] " (NULL)irpeit[ kirjeit[",kirpkir3/86.pal,5
1120 [131] " (NULL)oolipelit",roolip3/86.pal,5
1121 [131] " (NULL)eikkailijoiden taverna",advpal3/86.pal,5
1122 [131] " (NULL)ukijakyselyn tuloksia",kilpatul3/86.pal,5
1125 [131] "","",0
1130 [131] "(NULL)left$mid$val(NULL)(NULL)atn(NULL)","",0
1135 [131] "","",0
1140 [131] " ascloppy editor",floppy editor,3
1200 [131] " lenastle",castle.n,3
1210 [131] " (NULL)unnel of peekirds",tunnel.n,4
1211 [131] " right$lpon bisnekset",agentti6,3
1212 [131] " (NULL)uningas atnrthur",arthur*.n,4
1220 [131] "","",0
1230 [131] "(NULL)left$mid$valval(NULL)","",0
1235 [131] "","",0
1240 [131] " ascloppy valditor",floppy.ohj,5
1250 [131] "","",0
1251 [131] "(NULL)atn(NULL)(NULL)atn(NULL)(NULL)right$(NULL)right$atn (NULL)right$valstr$(NULL)(NULL)(NULL)valright$(NULL)atn","",0
1252 [131] "","",0
1253 [131] " chr$urlauspommi",gp.m*,3
1280 [131] "","",-1