Input 64/Input_64_86-06_1986_Verlag_Heinz_Weise_de.d64/vorschau

Commodore BASIC | 1988-01-01 | 3.7 KB | 113 lines

0 rem" [253][174] [235][183][224]([176][165][201][176]
[134][211][133][214] [229] [253][174]l[160][170]lh[178]:
1 pr[178][194](44)[172]256[170][194](43)[170]6
2 [143] zeile 0 ist der print-at-befehl,aufruf: sys pr,zeile,spalte,"text"
3 [143] zeile 1 definiert pr
110 :
120 [143] input-system-poke
130 [151]50257,16
140 :
200 [153][199](14)[199](8):[151]53280,0
999 :
1000 [151]53281,1:[158]pr,0,0,"loadortantantantantantantantantantantan (NULL)orschau 7 / 86 tantantantantantantantantantan^
1010 fori=1to23:syspr,i,0,"[221]                                      [221]";:next
1020 syspr,24,0,"[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][192][192]";
1030 poke2023,125+128:poke56295,1:poke53281,0
1998 :
1999 rem abfrage
2000 poke198,0
2005 getg$:ifg$=""then2005
2010 g=val(g$):ifg>0andg<6then2050
2015 ifg$="[204]"org$="l"then1000
2020 gosub3000
2030 goto2000
2050 onggosub4000,5000,6000,7000,8000
2060 goto2000
2998 :
2999 rem bild hilfe
3000 z=9:s=5
3010 syspr,z,s,"[158][176][192][192][192][192][192][192] [200] i l f e [192][192][192][192][192][192][174]
3020 [158]pr,z[170]1,s,"(NULL)                       (NULL)
3030 syspr,z+2,s,"[221]  1 = [205]athe mit [206]ico   [221]
3040 [158]pr,z[170]3,s,"(NULL)  2 = str$val(NULL)right$(NULL)atn           (NULL)
3050 syspr,z+4,s,"[221]  3 = [194]undesliga       [221]
3060 [158]pr,z[170]5,s,"(NULL)  4 = 64er (NULL)ips        (NULL)
3070 syspr,z+6,s,"[221]  5 = [200]inweis          [221]
3075 [158]pr,z[170]7,s,"(NULL)  (NULL) = (NULL)eite loeschen   (NULL)
3080 syspr,z+8,s,"[221]                       [221]
3090 [158]pr,z[170]9,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
3998 :
3999 [143] bild 1
4000 z[178]3:s[178]12
4010 [158]pr,z,s,"openortantantan (NULL)athe mit (NULL)ico tantantantan^
4020 syspr,z+1,s,"[221]                       [221]
4030 [158]pr,z[170]2,s,"(NULL) vals ist naheliegend,   (NULL)
4040 syspr,z+3,s,"[221] dass sich [206]ico das    [221]
4050 [158]pr,z[170]4,s,"(NULL) naechste (NULL)al mit der  (NULL)
4060 syspr,z+5,s,"[221] [210]ueckrechnung der di- [221]
4070 [158]pr,z[170]6,s,"(NULL) versen (NULL)ahlensysteme  (NULL)
4072 syspr,z+7,s,"[221] in das [196]ezimalsystem  [221]
4074 [158]pr,z[170]8,s,"(NULL) beschaeftigt. (NULL)der?   (NULL)
4080 syspr,z+9,s,"[221]                       [221]
4090 [158]pr,z[170]10,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
4998 :
4999 [143] bild 2
5000 z[178]11:s[178]1
5010 [158]pr,z,s,"defortantantan str$ val (NULL) right$ (NULL) atn tantantantantan^
5020 syspr,z+1,s,"[221]                     [221]
5030 [158]pr,z[170]2,s,"(NULL) atnuch wenn im peekei-   (NULL)
5040 syspr,z+3,s,"[221] heft [213]rlaub mit 'p' [221]
5050 [158]pr,z[170]4,s,"(NULL) geschrieben wurde,  (NULL)
5060 syspr,z+5,s,"[221] aendert das nichts  [221]
5070 [158]pr,z[170]6,s,"(NULL) an den (NULL)oeglichkei- (NULL)
5072 syspr,z+7,s,"[221] ten, die dieses [208]ro-[221]
5074 [158]pr,z[170]8,s,"(NULL) gramm bietet. (NULL)urz  (NULL)
5076 syspr,z+9,s,"[221] und gut: [197]s koennen [221]
5078 [158]pr,z[170]10,s,"(NULL) str$evisen hin und her (NULL)
5080 syspr,z+11,s,"[221] gerechnet werden.   [221]
5090 [158]pr,z[170]12,s,"/tantantantantantantantantantantantantantantantantantantantantanexp":[142]
5998 :
5999 [143] bild 3
6000 z[178]2:s[178]2
6010 [158]pr,z,s,"forortantantantantan peekundesliga tantantantantantan^
6020 syspr,z+1,s,"[221]                       [221]
6030 [158]pr,z[170]2,s,"(NULL) str$as grosse (NULL)pektakel, (NULL)
6040 syspr,z+3,s,"[221] von [205]illionen erwar-  [221]
6050 [158]pr,z[170]4,s,"(NULL) tet, wird, wenn (NULL)ie   (NULL)
6060 syspr,z+5,s,"[221] die [202]uli-[193]usgabe am   [221]
6070 [158]pr,z[170]6,s,"(NULL) (NULL)iosk kaufen koennen, (NULL)
6072 syspr,z+7,s,"[221] kurz vor dem [193]npfiff  [221]
6074 [158]pr,z[170]8,s,"(NULL) sein. right$n diesem (NULL)inne (NULL)
6076 syspr,z+9,s,"[221] ist [201][206][208][213][212] 64 wieder   [221]
6078 [158]pr,z[170]10,s,"(NULL) voll am peekall.         (NULL)
6080 syspr,z+11,s,"[221]                       [221]
6090 [158]pr,z[170]12,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
6998 :
6999 [143] bild 4
7000 z[178]12:s[178]10
7010 [158]pr,z,s,"pokeortantantantantantantan 64er (NULL)ips tantantantantantan^
7020 syspr,z+1,s,"[221]                        [221]
7030 [158]pr,z[170]2,s,"(NULL) (NULL)nsere (NULL)ips werden in  (NULL)
7040 syspr,z+3,s,"[221] der naechsten [193]usgabe  [221]
7050 [158]pr,z[170]4,s,"(NULL) den (NULL)right$(NULL)(NULL)-peekefehl aus-   (NULL)
7060 syspr,z+5,s,"[221] leuchten. [198]arbige [204]i-  [221]
7070 [158]pr,z[170]6,s,"(NULL) stings, atn(NULL)lenright$right$-(NULL)onver-  (NULL)
7072 syspr,z+7,s,"[221] tierung, [204]istschutz... [221]
7074 [158]pr,z[170]8,s,"(NULL) voll im chr$riff.         (NULL)
7080 syspr,z+9,s,"[221]                        [221]
7090 [158]pr,z[170]10,s,"/tantantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
7998 :
7999 [143] bild 5
8000 z[178]8:s[178]14
8010 [158]pr,z,s,"contortantantantantantan left$inweis  tantantantantantantan^
8020 syspr,z+1,s,"[221]                       [221]
8030 [158]pr,z[170]2,s,"(NULL) mid$etzt wissen (NULL)ie, was (NULL)
8040 syspr,z+3,s,"[221] [211]ie in der naechsten  [221]
8050 [158]pr,z[170]4,s,"(NULL) atnusgabe unter anderem (NULL)
8060 syspr,z+5,s,"[221] erwartet. [215]enn [211]ie    [221]
8070 [158]pr,z[170]6,s,"(NULL) wissen moechten, wie  (NULL)
8072 syspr,z+7,s,"[221] (einfach) dieses [208]ro- [221]
8075 [158]pr,z[170]8,s,"(NULL) gramm erstellt wurde, (NULL)
8077 syspr,z+9,s,"[221] tippen [211]ie [195][212][210][204] + s . [221]
8080 [158]pr,z[170]10,s,"(NULL)                       (NULL)
8090 syspr,z+11,s,"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return