home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 50 / Commodore_Disc_50_19xx_-_de.d64 / cp-code (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.5 KB  |  59 lines
  1. 10 rem =========================
  2. 20 rem pc-code c64
  3. 30 rem
  4. 40 rem written by a. mittelmeyer
  5. 50 rem =========================
  6. 100 gosub2280:printchr$(14)
  7. 2040 rem -------------------------
  8. 2050 rem  menue
  9. 2060 rem -------------------------
  10. 2070 printchr$(147):print""
  11. 2072 print"   [195][208]-[195][207][196][197]-[195][207][205][208][201][204][197][210]"
  12. 2074 print:print" -------------------------------------"
  13. 2080 print:printspc(5)"1 = [206]euer [212]ext"
  14. 2090 printspc(5)"2 = [212]ext [193]endern
  15. 2100 [153][166]5)"3 = str$rucken"
  16. 2110 [153][166]5)"4 = (NULL)aden"
  17. 2120 [153][166]5)"5 = (NULL)peichern"
  18. 2125 [153][166]5)"6 = (NULL)un"
  19. 2140 [153]:[153]" -------------------------------------"
  20. 2150 [153]"   (lenontrol atn beendet valditiermodus)"
  21. 2160 [161]a$:[139]a$[178]""[167]2160
  22. 2170 [145][197](a$)[141]2190,2200,2210,2220,2240,2181
  23. 2180 [137]2070
  24. 2181 [139][194](51982)[178]0[167][142]
  25. 2182 [153][199](147):[158]51675:[139][194](51698)[167] 2200
  26. 2183 [158]50387
  27. 2184 [161]a$:[139]a$[178]""[167]2184
  28. 2185 [142]
  29. 2190 [153]:[153]"(NULL)irklich neuer (NULL)ext j/n ?"
  30. 2191 [161]a$:[139]a$[178]""[167]2191
  31. 2192 [139]a$[179][177]"j"[167]2070
  32. 2195 [158]53100:[142]:[143] neuer text
  33. 2200 [139][194](51982)[167][158]52852:[142]
  34. 2205 [158]53094:[142]:[143] aendern
  35. 2210 [139][194](51982)[167][158]52972:[151]51982,0
  36. 2215 [159]8,4,7:[158]53022:[142]:[143] drucken
  37. 2220 [153]:[153]:[133]"ascile laden:";fi$
  38. 2230 [159]8,8,8,fi$:[158]52832:[142]:[143] laden
  39. 2240 [153]:[153]:[133]"ascile speichern:";fi$
  40. 2245 [139][194](51982)[167][158]52972:[151]51982,0
  41. 2250 [159]8,8,15,"s:"[170]fi$:[160]8
  42. 2260 [159]8,8,8,fi$[170]",s,w":[158]53022:[142]:[143] speichern
  43. 2270 [143] nachladen editext.mc ====
  44. 2280 an[178]12288:en[178]36863:pr[178]4000
  45. 2290 a[178]pr[171]1:[141]2400
  46. 2300 [139]ah[178][194](56)[175]al[178][194](55)[167][142]
  47. 2310 [158]57812"cp-code.mc1",8,1
  48. 2320 [151]780,0:[158]65493
  49. 2321 [158]57812"cp-code.mc2",8,1
  50. 2322 [151]780,0:[158]65493
  51. 2330 a[178]an:[141]2400
  52. 2340 [151]51978,al:[151]51979,ah
  53. 2350 a[178]en:[141]2400
  54. 2360 [151]51980,al:[151]51981,ah
  55. 2370 [151]51982,0:a[178]pr[171]1:[141]2400
  56. 2380 [151]55,al:[151]56,ah:[151]an,0:[138]
  57. 2400 ah[178][181](a[173]256):al[178]a[171]256[172]ah:[142]
  58. 2410 [143] =programmende===============
  59.