home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-06_1986_Verlag_Heinz_Weise_de.d64 / vorschau (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  113 lines
  1. 0 rem" [253][174] [235][183][224]([176][165][201][176]
  2. [134][211][133][214] [229] [253][174]l[160][170]lh[178]:
  3. 1 pr[178][194](44)[172]256[170][194](43)[170]6
  4. 2 [143] zeile 0 ist der print-at-befehl,aufruf: sys pr,zeile,spalte,"text"
  5. 3 [143] zeile 1 definiert pr
  6. 110 :
  7. 120 [143] input-system-poke
  8. 130 [151]50257,16
  9. 140 :
  10. 200 [153][199](14)[199](8):[151]53280,0
  11. 999 :
  12. 1000 [151]53281,1:[158]pr,0,0,"loadortantantantantantantantantantantan (NULL)orschau 7 / 86 tantantantantantantantantantan^
  13. 1010 fori=1to23:syspr,i,0,"[221]                                      [221]";:next
  14. 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]";
  15. 1030 poke2023,125+128:poke56295,1:poke53281,0
  16. 1998 :
  17. 1999 rem abfrage
  18. 2000 poke198,0
  19. 2005 getg$:ifg$=""then2005
  20. 2010 g=val(g$):ifg>0andg<6then2050
  21. 2015 ifg$="[204]"org$="l"then1000
  22. 2020 gosub3000
  23. 2030 goto2000
  24. 2050 onggosub4000,5000,6000,7000,8000
  25. 2060 goto2000
  26. 2998 :
  27. 2999 rem bild hilfe
  28. 3000 z=9:s=5
  29. 3010 syspr,z,s,"[158][176][192][192][192][192][192][192] [200] i l f e [192][192][192][192][192][192][174]
  30. 3020 [158]pr,z[170]1,s,"(NULL)                       (NULL)
  31. 3030 syspr,z+2,s,"[221]  1 = [205]athe mit [206]ico   [221]
  32. 3040 [158]pr,z[170]3,s,"(NULL)  2 = str$val(NULL)right$(NULL)atn           (NULL)
  33. 3050 syspr,z+4,s,"[221]  3 = [194]undesliga       [221]
  34. 3060 [158]pr,z[170]5,s,"(NULL)  4 = 64er (NULL)ips        (NULL)
  35. 3070 syspr,z+6,s,"[221]  5 = [200]inweis          [221]
  36. 3075 [158]pr,z[170]7,s,"(NULL)  (NULL) = (NULL)eite loeschen   (NULL)
  37. 3080 syspr,z+8,s,"[221]                       [221]
  38. 3090 [158]pr,z[170]9,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
  39. 3998 :
  40. 3999 [143] bild 1
  41. 4000 z[178]3:s[178]12
  42. 4010 [158]pr,z,s,"openortantantan (NULL)athe mit (NULL)ico tantantantan^
  43. 4020 syspr,z+1,s,"[221]                       [221]
  44. 4030 [158]pr,z[170]2,s,"(NULL) vals ist naheliegend,   (NULL)
  45. 4040 syspr,z+3,s,"[221] dass sich [206]ico das    [221]
  46. 4050 [158]pr,z[170]4,s,"(NULL) naechste (NULL)al mit der  (NULL)
  47. 4060 syspr,z+5,s,"[221] [210]ueckrechnung der di- [221]
  48. 4070 [158]pr,z[170]6,s,"(NULL) versen (NULL)ahlensysteme  (NULL)
  49. 4072 syspr,z+7,s,"[221] in das [196]ezimalsystem  [221]
  50. 4074 [158]pr,z[170]8,s,"(NULL) beschaeftigt. (NULL)der?   (NULL)
  51. 4080 syspr,z+9,s,"[221]                       [221]
  52. 4090 [158]pr,z[170]10,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
  53. 4998 :
  54. 4999 [143] bild 2
  55. 5000 z[178]11:s[178]1
  56. 5010 [158]pr,z,s,"defortantantan str$ val (NULL) right$ (NULL) atn tantantantantan^
  57. 5020 syspr,z+1,s,"[221]                     [221]
  58. 5030 [158]pr,z[170]2,s,"(NULL) atnuch wenn im peekei-   (NULL)
  59. 5040 syspr,z+3,s,"[221] heft [213]rlaub mit 'p' [221]
  60. 5050 [158]pr,z[170]4,s,"(NULL) geschrieben wurde,  (NULL)
  61. 5060 syspr,z+5,s,"[221] aendert das nichts  [221]
  62. 5070 [158]pr,z[170]6,s,"(NULL) an den (NULL)oeglichkei- (NULL)
  63. 5072 syspr,z+7,s,"[221] ten, die dieses [208]ro-[221]
  64. 5074 [158]pr,z[170]8,s,"(NULL) gramm bietet. (NULL)urz  (NULL)
  65. 5076 syspr,z+9,s,"[221] und gut: [197]s koennen [221]
  66. 5078 [158]pr,z[170]10,s,"(NULL) str$evisen hin und her (NULL)
  67. 5080 syspr,z+11,s,"[221] gerechnet werden.   [221]
  68. 5090 [158]pr,z[170]12,s,"/tantantantantantantantantantantantantantantantantantantantantanexp":[142]
  69. 5998 :
  70. 5999 [143] bild 3
  71. 6000 z[178]2:s[178]2
  72. 6010 [158]pr,z,s,"forortantantantantan peekundesliga tantantantantantan^
  73. 6020 syspr,z+1,s,"[221]                       [221]
  74. 6030 [158]pr,z[170]2,s,"(NULL) str$as grosse (NULL)pektakel, (NULL)
  75. 6040 syspr,z+3,s,"[221] von [205]illionen erwar-  [221]
  76. 6050 [158]pr,z[170]4,s,"(NULL) tet, wird, wenn (NULL)ie   (NULL)
  77. 6060 syspr,z+5,s,"[221] die [202]uli-[193]usgabe am   [221]
  78. 6070 [158]pr,z[170]6,s,"(NULL) (NULL)iosk kaufen koennen, (NULL)
  79. 6072 syspr,z+7,s,"[221] kurz vor dem [193]npfiff  [221]
  80. 6074 [158]pr,z[170]8,s,"(NULL) sein. right$n diesem (NULL)inne (NULL)
  81. 6076 syspr,z+9,s,"[221] ist [201][206][208][213][212] 64 wieder   [221]
  82. 6078 [158]pr,z[170]10,s,"(NULL) voll am peekall.         (NULL)
  83. 6080 syspr,z+11,s,"[221]                       [221]
  84. 6090 [158]pr,z[170]12,s,"/tantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
  85. 6998 :
  86. 6999 [143] bild 4
  87. 7000 z[178]12:s[178]10
  88. 7010 [158]pr,z,s,"pokeortantantantantantantan 64er (NULL)ips tantantantantantan^
  89. 7020 syspr,z+1,s,"[221]                        [221]
  90. 7030 [158]pr,z[170]2,s,"(NULL) (NULL)nsere (NULL)ips werden in  (NULL)
  91. 7040 syspr,z+3,s,"[221] der naechsten [193]usgabe  [221]
  92. 7050 [158]pr,z[170]4,s,"(NULL) den (NULL)right$(NULL)(NULL)-peekefehl aus-   (NULL)
  93. 7060 syspr,z+5,s,"[221] leuchten. [198]arbige [204]i-  [221]
  94. 7070 [158]pr,z[170]6,s,"(NULL) stings, atn(NULL)lenright$right$-(NULL)onver-  (NULL)
  95. 7072 syspr,z+7,s,"[221] tierung, [204]istschutz... [221]
  96. 7074 [158]pr,z[170]8,s,"(NULL) voll im chr$riff.         (NULL)
  97. 7080 syspr,z+9,s,"[221]                        [221]
  98. 7090 [158]pr,z[170]10,s,"/tantantantantantantantantantantantantantantantantantantantantantantantanexp":[142]
  99. 7998 :
  100. 7999 [143] bild 5
  101. 8000 z[178]8:s[178]14
  102. 8010 [158]pr,z,s,"contortantantantantantan left$inweis  tantantantantantantan^
  103. 8020 syspr,z+1,s,"[221]                       [221]
  104. 8030 [158]pr,z[170]2,s,"(NULL) mid$etzt wissen (NULL)ie, was (NULL)
  105. 8040 syspr,z+3,s,"[221] [211]ie in der naechsten  [221]
  106. 8050 [158]pr,z[170]4,s,"(NULL) atnusgabe unter anderem (NULL)
  107. 8060 syspr,z+5,s,"[221] erwartet. [215]enn [211]ie    [221]
  108. 8070 [158]pr,z[170]6,s,"(NULL) wissen moechten, wie  (NULL)
  109. 8072 syspr,z+7,s,"[221] (einfach) dieses [208]ro- [221]
  110. 8075 [158]pr,z[170]8,s,"(NULL) gramm erstellt wurde, (NULL)
  111. 8077 syspr,z+9,s,"[221] tippen [211]ie [195][212][210][204] + s . [221]
  112. 8080 [158]pr,z[170]10,s,"(NULL)                       (NULL)
  113. 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
  114.