home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64 / ! (.txt) next >
Commodore BASIC  |  2022-10-26  |  2KB  |  64 lines
  1. 1000 rem hauptverteiler
  2. 1005 rem fuer 'master-text/adress'
  3. 1010 rem 1987 von carsten kipping
  4. 1015 :
  5. 1020 rem 'master-text'   von m. pahl
  6. 1025 rem 'master-adress' von c. kipping
  7. 1030 :
  8. 1035 poke1,7:poke808,237
  9. 1040 ifww=2thenww=5:load"0:adressen/c000",8,1
  10. 1045 ifww=5thenww=2:sys(828):goto1180
  11. 1050 poke53281,00:poke53280,00:print"[147][152]";
  12. 1055 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][192][192][192][192][192][174]";
  13. 1060 print"[221][146]     [205][193][211][212][197][210]-[212][197][216][212] & [205][193][211][212][197][210]-[193][196][210][197][211][211]      [152][221]";
  14. 1065 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][192][192][192][192][192][189][146]"
  15. 1070 rem kopierroutine $7000-$8000 -> $e000-$f000 lesen
  16. 1075 fori=828to855:readx:pokei,x:nexti
  17. 1080 print"[152]"spc(5)"[194]itte waehlen [211]ie eine [207]ption:"
  18. 1085 ww=0
  19. 1090 print""
  20. 1095 printspc(11)"[212]extverarbeitung"
  21. 1100 printspc(10)"[193]dressenverwaltung"
  22. 1105 printspc(9)"[201]nstallation [196]rucker"
  23. 1110 printspc(15)"[194]eenden"
  24. 1115 ifww>4thenww=4
  25. 1120 ifww<1thenww=1
  26. 1125 print"";
  27. 1130 ifww=1thenprintspc(11)"[212]extverarbeitung"
  28. 1135 ifww=2thenprintspc(10)"[193]dressenverwaltung"
  29. 1140 ifww=3thenprintspc(9)"[201]nstallation [196]rucker"
  30. 1145 ifww=4thenprintspc(15)"[194]eenden"
  31. 1150 poke198,0:wait198,1:getww$
  32. 1155 ifww$=""orww$=" "thenww=ww+1:goto1090
  33. 1160 ifww$="[145]"orww$="[160]"thenww=ww-1:goto1090
  34. 1165 ifww$<>chr$(13)then1150
  35. 1170 ifww=1thendn$="lader"
  36. 1175 ifww=2thendn$="adressen":gosub1215:load"0:zeichensatz",8,1
  37. 1180 ifww=3thendn$="install"
  38. 1185 ifww=4thensys64738
  39. 1190 print"[144]load"chr$(34)"0:"dn$;chr$(34)",8,1"
  40. 1195 print"?"chr$(34)"[147]"chr$(34)":run[145][145][145][145][145][145][145]";
  41. 1200 open1,8,15,"i0":close1
  42. 1205 poke631,13:poke632,13:poke198,2
  43. 1210 end
  44. 1215 print"[147][152]";
  45. 1220 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][192][192][192][192][192][174]";
  46. 1225 print"[221][146]     + [205] [193][160][211][160][212][160][197][160][210][160]-[160][193] [196] [210] [197] [211] [211] +    [152][221]";
  47. 1230 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][192][192][192][192][192][189][146]"
  48. 1235 print"[152]   [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]"
  49. 1240 print"   [221] [215]ritten 1987 by [195]arsten [203]ipping [221]
  50. 1245 [153]"   (NULL)   (c) 1987 (NULL)arkt und (NULL)echnik    (NULL)
  51. 1250 print"   [221]                                 [221]"
  52. 1255 print"   [221]      *********************      [221]"
  53. 1260 print"   [221]      * [195]arsten [203]ipping   *      [221]"
  54. 1265 print"   [221]      * [215]interstrasse 40  *      [221]"
  55. 1270 print"   [221]      * 3050 [215]unstorf 1   *      [221]"
  56. 1275 print"   [221]      * [212]el.: 05031/71693 *      [221]"
  57. 1280 print"   [221]      *********************      [221]"
  58. 1285 print"   [221]                                 [221]"
  59. 1290 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]"
  60. 1295 return
  61. 1300 :
  62. 1305 data169,0,160,112,133,95,132,96,169,0,160,128,133,90,132,91,169,0,160
  63. 1310 data240,133,88,132,89,32,191,163,96
  64.