home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern439.d64 / b7 (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  31KB  |  869 lines
  1. 1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 2 GOTO400
  3. 130 REM MENUE 10
  4. 131 PRINT"[147][154]":POKE53280,0:POKE53281,0
  5. 132 PRINT"  [207][183][183][183][183][183][208]"
  6. 133 PRINT"  [180][172][195][195][195][187][170]
  7. 134 [153]"  SGNPEEK 1 CONTWAITPEEK+    VERIFYDATEN EINGEBENCONT"
  8. 135 [153]"  SGNLOGLENLENLENCOS+
  9. 136 PRINT"  [204][175][175][175][175][175][186]"
  10. 137 PRINT"  [207][183][183][183][183][183][208]"
  11. 138 PRINT"  [180][172][195][195][195][187][170]
  12. 139 [153]"  SGNPEEK 2 CONTWAITPEEK+    VERIFYDATEN SPEICHERNCONT"
  13. 140 [153]"  SGNLOGLENLENLENCOS+
  14. 141 PRINT"  [204][175][175][175][175][175][186]"
  15. 142 PRINT"  [207][183][183][183][183][183][208]"
  16. 143 PRINT"  [180][172][195][195][195][187][170]
  17. 144 [153]"  SGNPEEK 3 CONTWAITPEEK+    VERIFYDATEN AUSGEBENCONT"
  18. 145 [153]"  SGNLOGLENLENLENCOS+
  19. 146 PRINT"  [204][175][175][175][175][175][186]"
  20. 147 PRINT"  [207][183][183][183][183][183][208]"
  21. 148 REM             PRINT"  [207][183][183][183][183][183][208]"
  22. 149 PRINT"  [180][172][195][195][195][187][170]
  23. 150 [153]"  SGNPEEK 4 CONTWAITPEEK+    VERIFYPROGRAMMENDECONT"
  24. 151 [153]"  SGNLOGLENLENLENCOS+
  25. 152 PRINT"  [204][175][175][175][175][175][186]"
  26. 153 GETV$:IFV$=""THEN153
  27. 154 IFV$="1"ORV$="2"ORV$="3"ORV$="4"THEN800
  28. 155 GOTO153
  29. 156 REM GEBE EIN: RUN 800
  30. 160 REM MENUE 11 FLACKERN
  31. 161 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB180
  32. 162 Z=4:S=6:GOSUB185:PRINT"MENUE :":Z=5:GOSUB185:PRINT"-------"
  33. 163 Z=7:S=0:Y=1:FORI=1TO5:GOSUB185:PRINTNA$(I);NB$(I)
  34. 164 Z=Z+2:Y=Y+1:NEXT
  35. 165 Z=18:GOSUB185:PRINT"     [146] WAEHLEN MIT  F3 [146] UND  F5 [146] !"
  36. 166 Z=20:S=7:GOSUB185:PRINT"DANN RETURN DRUECKEN !"
  37. 167 Z=23:S=0:GOSUB185
  38. 168 Z=7:Y=1:
  39. 169 GOSUB185:PRINT"     [146]":FORI=1TO75:NEXT
  40. 170 PRINT"[145]";NA$(Y):FORI=1TO125:NEXT
  41. 171 GETG$:IFG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN169
  42. 172 IFG$=CHR$(13)THENGOSUB185:PRINT">[146]";:GOTO186
  43. 173 IFG$=CHR$(135)THEN176
  44. 174 Z=Z+2:Y=Y+1:IFZ>15THENZ=7:Y=1
  45. 175 GOTO169
  46. 176 Z=Z-2:Y=Y-1:IFZ<7THENZ=15:Y=5
  47. 177 GOTO169
  48. 180 NA$(1)="- 1 -[146]":NA$(2)="- 2 -[146]":NA$(3)="- 3 -[146]":NA$(4)="- 4 -[146]"
  49. 181 NA$(5)="- 5 -[146]":NB$(5)=" TEIL 5"
  50. 182 NB$(1)=" TEIL 1":NB$(2)=" TEIL 2":NB$(3)=" TEIL 3":NB$(4)=" TEIL 4"
  51. 183 RETURN
  52. 185 POKE214,Z:POKE211,S:SYS58732:RETURN
  53. 186 GOTO800
  54. 187 REM GEBE EIN: RUN 800
  55. 190 REM MENUE 12 SPRITE
  56. 191 POKE53280,0:POKE53281,0:PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  57. 192 PRINT"[194][155]         H A U P T M E N U E          [146][194]";
  58. 193 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":X=28:Y=73
  59. 194 PRINTSPC(4)"1      TEST"
  60. 195 PRINTSPC(4)"2      TEST"
  61. 196 PRINTSPC(4)"3      TEST"
  62. 197 PRINTSPC(4)"4      TEST"
  63. 198 PRINTSPC(4)"5      TEST"
  64. 199 PRINTSPC(4)"6      TEST"
  65. 200 PRINTSPC(4)"7      TEST":PRINT"DRUECK SPACE"
  66. 206 GETE$:IFE$=""THEN206
  67. 209 IFE$=CHR$(32)THEN800
  68. 210 GOTO206
  69. 223 REM GEBE EIN: RUN 800
  70. 230 REM MINI-MENUE 13
  71. 231 PRINT"[147]":POKE53280,0:POKE53281,0
  72. 232 A0$="[213][195][195][195][195][195][195][195][195][195][201]                             "
  73. 233 A1$="[194][129]F1 = LIST[146][194]                             "
  74. 234 A2$="[194][129]F3 = RUN [146][194]                             "
  75. 235 A3$="[194][129]F5 = NEW [146][194]                             "
  76. 236 A4$="[194][129]F7 = END [146][194]                             "
  77. 237 A5$="[202][195][195][195][195][195][195][195][195][195][203]"
  78. 238 AN$=A0$+A1$+A2$+A3$+A4$+A5$:PRINTTAB(15)"";AN$
  79. 239 GETE$:IFE$=""THEN239
  80. 240 IFE$=CHR$(133)ORE$=CHR$(134)ORE$=CHR$(135)ORE$=CHR$(136)THEN800
  81. 241 GOTO239
  82. 242 REM GEBE EIN: RUN 800
  83. 250 CLR:   REM MENUE 14
  84. 251 PRINT"[147][158]":POKE53280,0:POKE53281,0
  85. 252 PRINT"  [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][174]"
  86. 253 PRINT"  [194]          [213][192][192][192][192][192][192][192][192][192][192][192][201]          [194]"
  87. 254 PRINT"  [194]          [194] M E N U E[158] [194]          [194]"
  88. 255 PRINT"[160] [194]          [202][192][192][192][192][192][192][192][192][192][192][192][203]          [194]"
  89. 256 PRINT"[160] [194][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][194]"
  90. 257 PRINT"  [194][154]  AUSWAHL                   [1][158]  [194]"
  91. 258 PRINT"  [194]                                 [194]"
  92. 259 PRINT"  [194][154]  AUSWAHL                   [2][158]  [194]"
  93. 260 PRINT"  [194]                                 [194]"
  94. 261 PRINT"  [194][154]  AUSWAHL                   [3][158]  [194]"
  95. 262 PRINT"  [194]                                 [194]"
  96. 263 PRINT"  [194][154]  AUSWAHL                   [4][158]  [194]"
  97. 264 PRINT"  [194]                                 [194]"
  98. 265 PRINT"  [194][154]  AUSWAHL                   [5][158]  [194]"
  99. 266 PRINT"  [194]                                 [194]"
  100. 267 PRINT"  [194][154]  AUSWAHL                   [6][158]  [194]"
  101. 268 PRINT"  [194]                                 [194]"
  102. 269 PRINT"  [194][154]  AUSWAHL                   [7][158]  [194]"
  103. 270 PRINT"  [194]                                 [194]"
  104. 271 PRINT"  [194][154]  AUSWAHL                   [8][158]  [194]"
  105. 272 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][189][149]"
  106. 273 POKE198,0:WAIT198,1:GETV$:POKE198,1
  107. 274 IFV$="1"ORV$="2"ORV$="3"ORV$="4"ORV$="5"ORV$="6"ORV$="7"ORV$="8"THENGOTO800
  108. 275 GOTO273
  109. 276 REM GEBE EIN: RUN 800
  110. 280 CLR:   REM MENUE 15
  111. 281 POKE53280,0:POKE53281,0
  112. 282 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  113. 283 A$="[194][129]                                      [146][194]":FORI=0TO18:PRINTA$;:NEXT
  114. 284 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  115. 285 PRINT"[194]                DATEI                 [146][194]"
  116. 286 PRINT"[194][129] < 1 >    DATEN EINGEBEN"
  117. 287 PRINT"[194][129] < 2 >    DATEN AUSGEBEN (MANUELL)
  118. 288 [153]"PEEKFOR < 3 >    DATEN AUSGEBEN (AUTOMATISCH)"
  119. 290 [153]"PEEKFOR < 4 >    DATEN EINLESEN"
  120. 291 [153]"PEEKFOR < 5 >    DATEN SPEICHERN"
  121. 292 [153]"PEEKFOR < 6 >    DATEI VORBEREITEN"
  122. 293 [153]"PEEKFOR < 7 >    DATEI LOESCHEN"
  123. 294 [153]"PEEKFOR < 8 >    PROGRAMM BEENDEN"
  124. 295 [129]I[178]0[164]5:[153]"";[166]9)"BITTE ZIFFER WAEHLEN !":[130]
  125. 296 [129]I[178]0[164]5:[153]"";[166]9)"BITTE ZIFFER WAEHLEN !":[130]
  126. 297 [161]V$:[139]V$[178]""[167]295
  127. 298 [139]V$[178]"1"[176]V$[178]"2"[176]V$[178]"3"[176]V$[178]"4"[176]V$[178]"5"[176]V$[178]"6"[176]V$[178]"7"[176]V$[178]"8"[167][137]800
  128. 299 [137]297:[143] GEBE EIN: RUN 800
  129. 300 [156]:   [143] MENUE 16
  130. 301 [151]53280,6:[151]53281,5:[153]"LOADSTOP(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
  131. 302 [153]"SGNCOS                                    LOGSTOP+";
  132. 303 [153]"SGN     V E R L E I H  -  D A T E I      STOP+";
  133. 304 [153]"SGN    =============================     STOP+";
  134. 305 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"
  135. 306 [153]"ONSYS(null)USR(null)":[153]"SGNSTOP1SYS+    DATEN EINGEBEN":[153]"SYS(null)ANDSQR"
  136. 307 [153]"SYS(null)USR(null)":[153]"SGNSTOP2SYS+    DATEN AUSGEBEN":[153]"SYS(null)ANDSQR"
  137. 308 [153]"SYS(null)USR(null)":[153]"SGNSTOP3SYS+    DATEN SPEICHERN":[153]"SYS(null)ANDSQR"
  138. 309 [153]"SYS(null)USR(null)":[153]"SGNSTOP4SYS+    DA