home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1998-12_1998_CSW_Side_A.d64
/
test8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
97 lines
10 print"[147]";:gosub59000
20 br=mb:i7=1:i8=1
30 st$="[193]uswahl mit den [208]feiltasten, ausloesen mit <[210]eturn>":gosub1700
40 gosub1600
50 gosub1500:ifri=0then50
60 ifri=1thengosub1300:i7=i7+1:i8=1:ifi7>mntheni7=1
70 ifri=2thengosub1300:i7=i7-1:i8=1:ifi7=0theni7=mn
80 ifri=3theni8=i8+1:ifi8>hotheni8=1
90 ifri=4theni8=i8-1:ifi8=0theni8=ho
100 ifri=5theni6=br:gosub1300:gosub1700:gosub2000:zl=1:br=i6:goto30
110 goto40
900 zl=0:gosub1200
999 end
1100 gosub1200:print"[176]";:fori9=1tobr:print"[192]";:next:print"[174]"
1110 fori9=1toho:printtab(sp)"[221]"spc(br)"[221]":next
1120 printtab(sp)"[173]";:fori9=1tobr:print"[192]";:next:print"[189]";:return
1200 poke214,zl:poke211,sp:sys58640:return
1300 gosub1200:fori9=1toho+2:printtab(sp)left$(l$,br+2);:ifi9<ho+2thenprint
1310 next:return
1400 en$="":i9=0
1405 print"[164][157]";
1410 getx9$:ifx9$=""then1410
1420 ifx9$=chr$(13)then1480
1430 ifx9$=chr$(20)andi9>0thenprint"[157][157][164][157]";:i9=i9-1:en$=left$(en$,i9)
1440 ifx9$<" "orx9$>"[218]"then1410
1450 ifx9$>"_"andx9$<"[193]"then1410
1460 ifx9$=chr$(34)thenprintchr$(148)x9$chr$(20);
1470 en$=en$+x9$:printx9$;:i9=i9+1:iflg>i9then1405
1480 print" ";:return
1500 ri=0
1510 getx9$:ifx9$=""then1510
1520 ifx9$=""thenri=1
1530 ifx9$="[157]"thenri=2
1540 ifx9$=""thenri=3
1550 ifx9$="[145]"thenri=4
1560 ifx9$=chr$(13)thenri=5
1570 return
1600 zl=1:ho=mn%(i7):sp=mb*(i7-1):ifsp+mb>38thensp=37-mb
1605 gosub1100:sp=sp+1
1610 fori6=1toho:zl=zl+1:gosub1200:ifi6=i8thenprint"";
1620 printmn$(i7,i6)"[146]";:next:zl=1:sp=sp-1
1630 return
1700 zl=23:sp=0:gosub1200:printl$:printl$;:zl=zl-1:gosub1200:en$="[164]":lg=40:gosub1800
1710 zl=zl+1:gosub1200:printst$;:st$="":en$="":return
1800 fori9=1tolg:printen$;:next:return
2000 ifi7<>1then2050
2010 ifi8=1thengosub5000
2020 ifi8=2thengosub5000
2030 ifi8=3thengosub5000
2040 ifi8=4thengosub5000
2045 ifi8=5thengosub4900
2050 ifi7<>2then2100
2060 ifi8=1thengosub5000
2070 ifi8=2thengosub5000
2080 ifi8=3thengosub5000
2090 ifi8=4thengosub5000
2100 ifi7<>3then2150
2110 ifi8=1thengosub5000
2120 ifi8=2thengosub5000
2150 ifi7<>4then2200
2160 oni8gosub6000,5000,5000
2200 return
4900 zl=8:sp=8:br=22:ho=5:gosub1100:zl=zl+1:sp=sp+1:gosub1200
4910 print""left$(l$,br);:gosub1200:printmn$(i7,i8)"[146]";
4920 zl=zl+2:gosub1200:print"[193]uf [215]iedersehen!";
4930 st$="[196]anke fuer's [205]itmachen! [194]is dann. $[193][196]":gosub1700
4940 zl=1:sp=0:gosub1200
4950 end
5000 zl=8:sp=9:br=20:ho=5:gosub1100:zl=zl+1:sp=sp+1:gosub1200
5010 print""left$(l$,br);:gosub1200:printmn$(i7,i8)"[146]";
5020 zl=zl+2:gosub1200:print"[215]eiter mit [212]aste.";
5030 st$="[196]ies ist die [211]tatuszeile. ":gosub1700:lg=1:gosub1400
5040 zl=8:sp=9:br=20:ho=5:gosub1300
5050 return
6000 zl=8:sp=9:br=20:ho=5:gosub1100:zl=zl+1:sp=sp+1:gosub1200
6010 print""left$(l$,br);:gosub1200:printmn$(i7,i8)"[146]";
6020 zl=zl+2:gosub1200:print"[205]enues in [194][193][211][201][195]";
6030 zl=zl+1:gosub1200:print"von";
6040 zl=zl+1:gosub1200:print" [193]rndt [196]ettke[151]";
6050 st$="[214]iel [211]pass mit diesem [208]rogramm! ":gosub1700:lg=1:gosub1400
6060 zl=8:sp=9:br=20:ho=5:gosub1300
6070 return
59000 i9=0:i8=0:i7=0:i6=0:zl=0:sp=0:br=0:ho=0:x9$="":en$="":st$=""
59010 read mn,sm,mb:dim mn$(mn,sm),mn%(mn)
59020 fori9=1tomn:readmn$(i9,0):next
59025 fori8=1tomn:readmn%(i8):sm=mn%(i8):fori9=1tosm:readmn$(i8,i9):next:next
59080 l$=" ":lg=1
59090 fc=11:fb=15:fr=12:poke53281,fb:poke53280,fr:poke646,fc
59095 print""l$" ";:fori9=1tomn:sp=(i9-1)*mb:gosub1200:printmn$(i9,0);:next:print"[146]";
59099 return
60000 data 4,6,10:rem anzahl menues,max. anzahl submenues, menuebreite
60010 data "[196]atei","[194]earb.","[197]xtras","[200]ilfe"
60020 data 5,"[206]eu","[207]effnen","[211]chliessen","[211]peichern","[194]eenden"
60030 data 4,"[210]ueckgaeng","[193]usschneid","[203]opieren","[197]infuegen"
60040 data 2,"[201]mport","[197]xport"
60050 data 3,"[213]eber...","[201]ndex","[193]llgemein"