home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #6
/
Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64
/
mx2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
176 lines
100 rem: copyright by protocol prod. oy 101 rem: valikon teki toni luode ad.-87
110 sys51676
120 poke53269,.:sys49422:yz=1:gosub190:gosub920:x=-1:poke53269,.:gosub192
140 input#2,a$,a$,a$:ifa$<>"@"orleft$(a$,1)<>"@"thenx=x+1:goto140
150 close2:x=x+15:dim n$(x),f$(x),e$(x):gosub192
160 fort=0to7:n$(t)="":f$(t)="":e$(t)="":next
170 fort=8tox-7
171 input#2,n$(t),f$(t),e$(t):ifleft$(n$(t),1)="@"andlen(n$(t))>1then171
172 ifn$(t)="@"then176
173 ifasc(mid$(n$(t),1,1))=128thengosub194
174 ifn$(t)="."thenn$(t)=" "
175 next
176 close2:poke53269,127
180 fort=x-7tox:n$(t)="":f$(t)="":e$(t)="":next
190 cd$="":goto200
192 open2,8,2,"files.txt":return
193 close2:return
194 n$(t)=chr$(val(mid$(n$(t),2,1))+149)+mid$(n$(t),3,len(n$(t))-2):return
200 sys50432:sys49840:sys49984
201 print"[156]";
205 ifyz=1andsc=.thenprintleft$(cd$,13);"[212][197][210][214][197][212][213][204][207][193] [198][204][207][208][208][201][203][211][197][197][206] 6/88!"
240 printcd$;"[156]([195]) [208]rotocol [208]roductions [207]y"
260 ifsc=.ormu=1thengosub920
262 ifyz=1thenyz=0:sys50416:return
265 sys51662:printleft$(cd$,4)
270 ifn0=.thenn0=8:t=.:goto290
272 t=n0-8
280 printtab(4)n$(t):ift=xort=n0+8then300
282 t=t+1:goto280
290 printtab(4)n$(t):ift=16then300
292 t=t+1:goto290
300 poke198,0:sys49467:sys50432:sc=.:ifmu=.andzz=.thensys50880:sc=1:zz=1:goto302
301 ifmu=.thensys50665:sc=1
302 sys49920
304 geti$:print"":ifi$=""then304
310 i=asc(i$)
312 ifi=17thensys49920:goto360
320 ifi=145thensys49920:goto390
330 ifi=13thenpm=.:goto440
340 ifi=32thenpm=1:goto440
350 goto304
360 ifn0=x-8thensys49920:goto304
370 n0=n0+1:sys50288:ifn0+8>xthen302
380 printleft$(cd$,21)spc(4)n$(n0+8)
382 ifval(e$(n0))=.then360
384 goto302
390 ifn0=8thensys49920:goto304
400 n0=n0-1:sys50352:ifn0<8then302
410 print" "n$(n0-8)
420 ifval(e$(n0))=.then390
422 goto302
440 sys49840:ifright$(e$(n0),1)<>"b"andbp=0then449
441 sys49920:ifbp=1then448
442 printleft$(cd$,13);"[211][217][220][212][219] [194]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":bp=1
444 print"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":poke198,0:wait198,1:poke198,0
446 goto449
448 printleft$(cd$,13);"[211][217][220][212][219] [193]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":bp=0
449 sys49840
450 v=val(e$(n0)):f$=f$(n0):n$=n$(n0):sys49467:off=.:ifpeek(49875)=1thenoff=1
452 ifright$(f$,2)<>".n"thentu=1:goto460
455 poke816,165:poke817,244:f$=left$(f$,len(f$)-2):poke49875,0:tu=0
460 sys51648:sys49920
462 if(n1<>n0)orpmthen468
464 sys50048:ifv>=6andv<=8then2006
466 onvgoto650,896,570,600,512
468 n1=n0
469 sys50048:ifv<>2thengosub900
470 poke53269,.:ifv>=6andv<=8then2000
472 ifv>8then610
480 onvgoto640,890,570,600,490
490 f$=f$+",s":gosub500:sys50416:goto200
500 ifv<>5thenreturn
505 ifpmthenpm=.:goto520
510 gosub860:open1,8,0,f$:sys16384:return
512 poke53269,0:sys17080:sys50416:goto200
520 sys49840:printleft$(cd$,13);"[212]ulostetaanko teksti (k/e) ? [146]":sys49920
530 geta$:print"":ifa$=""ora$<>"e"anda$<>"k"then530
540 sys50048:ifa$="e"thensys49920:return
550 gosub860:open2,4,7:cmd2:open1,8,0,f$:sys50592:close1:close2:sys49920:return
570 gosub3000:ifza>0thengosub620:goto200
580 gosub860:gosub630:print"";:gosub624
586 print":clr:p[207]198,1:p[207]631,131"
590 print"load"chr$(34)f$chr$(34)",8":poke198,1:poke631,13:end
600 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1
602 gosub860:gosub630:print"";:gosub624
606 print":clr:p[207]198,1:p[207]631,131"
608 print""chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13:end
610 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1+sys...?
612 gosub860:gosub630:print"";:gosub624
615 print":clr:p[207]198,2:p[207]631,13:p[207]632,13"
616 print"load"chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13
618 print"sys";v;"":end
620 if off then poke49875,off
622 return
624 iftu=.orpeek(49875)=.thenprint"sys53226";
626 iftu=1andpeek(49875)=1thenprint"sys53184";
628 return
630 sys64789:sys65409:sys64931:sys49467:poke646,14:poke53272,20:return
640 f$="apua":gosub660:gosub2030:sys50032:goto200
650 gosub660:sys50037:goto200
660 poke53269,.:mu=.:zz=1:sys50886:return
860 poke53269,.
865 rk=rk+1:gosub900:if rk>5then rk=1
870 v$="mainos"+right$(str$(rk),1)
880 open1,8,2,v$+",s":sys16999:return
890 sys50416:ifmu=1thenmu=.:gosub900:goto200
892 mu=1:sys49920:gosub2030:sys49493:gosub920:sys49920:goto200
896 sys50416:ifmu=.thenmu=1:sys49920:sys49498:gosub920:sys49920:goto200
898 goto890
900 mu=.:sys49502:return
920 sys50416:sys50912
922 printcd$;"[156][198][204][207][208][208][217] [205][193][199][193][218][201][206][197], [202][207][213][204][213][203][213][213], 6/88";:return
2000 gosub2030:ifv=6then c1=10:c2=0:poke49872,c1:poke49873,c2
2002 ifpmthenpm=.:ifv<>7thenpoke49874,v-6:sys50927:n1=0:goto3100
2004 poke49874,v:sys49819:goto200
2006 ifv=6then c1=10:c2=0:poke49872,c1:poke49873,c2
2008 poke49874,v:sys49964:goto200
2010 rem: color 1&2 ( c1 & c2 ) newsroomissa, arvot 0-15
2030 iflen(f$)>16thenf$=left$(f$,16)
2032 n$=right$(n$,len(n$)-2):sys49952:iflen(n$)>32thenn$=left$(n$,32)
2040 poke49882,len(f$):poke49883,len(n$)
2050 fory=1tolen(f$):poke49903+y,asc(mid$(f$,y,1)):next
2052 ifv<6orv>8then2072
2060 fory=1tolen(n$):n=asc(mid$(n$,y,1))
2070 poke51471+y,n:next
2072 ifmu=.thengosub860
2080 return
3000 open15,8,15:open2,8,2,"0:"+f$+",p,r":input#15,za,zb$,zc,zd:close2:close15
3005 ifza=.thenreturn
3010 sys49840:sys49984:print"[207][200][202][197][204][205][193][193] [197][201] [204][220][217][212][217][206][217][212]. [212]arkista"
3015 print"onko oikea levynpuoli sis[ll[."
3020 print"[205]ik[li vika ei kuitenkaan ole"
3025 print"siin[, tarkista muut kytkenn[t."
3030 print"'_'-n[pp[imest[ takaisin valikkoon.":poke198,0
3035 print"[205]uista n[pp[imist[ lataus jatkuu.":sys50416:sys50672:sys50432
3040 getwc$:print"":ifwc$=""then3040
3042 ifwc$="_"thenreturn
3044 sys50048:poke53269,0:goto3000
3100 rem kuvan printtausrutskut
3102 sys50416:sys49984:sys50432
3104 sys49840:sys50665
3110 print"";tab(11);"[203][213][214][193][206] [208][210][201][206][212][212][193][213][211]":printtab(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3112 print" 1 [146]801/1525 -[196]umppi"
3114 print" 2 [146][201][206][212][197][210][198][193][195][197]-[198]astdump"
3116 print" 3 [146]802 -[196]umppi"
3118 print" 4 [146][208][207][201][211]."
3120 print"[198][193][211][212][196][213][205][208] on tarkoitettu [201][206][212][197][210][198][193][195][197]-"
3122 print"printtereille. [203]uvien printtaus on"
3124 print"tehty [196][207][207][196][204][197]- ja [206][197][215][211][210][207][207][205]-kuville.":poke198,0
3130 getwc$:print"":ifwc$=""orwc$<"1"orwc$>"4"then3130
3132 on(val(wc$))goto3140,3150,3160,200
3134 print"[156] [208][210][201][206][212][193][212][212][193][214][193] [203][213][214][193]: ";n$:print" [212][217][217][208][208][201]: [196][207][207][196][204][197][157][157][157][157][157][157][157]";
3135 ifv=6thenprint"[206][197][215][211][210][207][207][205]";
3136 print:return
3137 print"<< [208][193][201][206][193] [202][207][212][193][201][206] [208][210][201][206][212][193][212][193][203][211][197][211][201] [203][213][214][193][206] >>":poke198,0:wait198,1
3138 poke198,0:return
3139 print" >>> [208][210][201][206][212][212][193][213][211] [203][219][217][206][206][201][211][211][219]. [200][197][212][203][201] <<<":return
3140 sys49840
3142 print"";tab(11);"801/1525 [196][213][205][208][208][201]":printtab(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3144 remgosub3134:gosub3137:gosub3139:gosub4000:goto3104
3146 print" 1525-[196][213][205][208][208][201] [212][213][204][197][197] [213][213][212][197][197][206] [214][193][204][201][203][203][207][207][206]. ":ford=1to2000:next
3147 goto3104
3150 sys49840:print"";
3152 printtab(9);"[201][206][212][197][210][198][193][195][197] [198][193][211][212][196][213][205][208]":printtab(9);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3154 gosub3134:gosub3137:gosub3139:sys51712:goto3104
3160 sys49840:print"";
3162 printtab(14);"802 [196][213][205][208][208][201]":printtab(14);"[163][163][163][163][163][163][163][163][163][163]"
3164 print"[193]nna oikean reunan marginaali";:inputma:poke255,ma
3166 gosub3134:gosub3137:gosub3139:sys52210:goto3104
5000 rem *** rivien poisto.
5001 input"anna alku-,loppurivi: ";ar,lr
5002 ar=ar-1
5003 ifar=lrthenend
5004 ar=ar+1:print"[147]"ar"ar="ar":lr="lr":goto5003";
5005 poke631,13:poke632,13:poke198,2:end