home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / ! (.txt) next >
Commodore BASIC  |  1995-03-30  |  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.