home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh39b.d64
/
!
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
64 lines
1000 REM HAUPTVERTEILER
1005 REM FUER 'MASTER-TEXT/ADRESS'
1010 REM 1987 VON CARSTEN KIPPING
1015 :
1020 REM 'MASTER-TEXT' VON M. PAHL
1025 REM 'MASTER-ADRESS' VON C. KIPPING
1030 :
1035 POKE1,7:POKE808,237
1040 IFWW=2THENWW=5:LOAD"0:ADRESSEN/C000",8,1
1045 IFWW=5THENWW=2:SYS(828):GOTO1180
1050 POKE53281,00:POKE53280,00:PRINT"[147][152]";
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]";
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]";
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]"
1070 REM KOPIERROUTINE $7000-$8000 -> $E000-$F000 LESEN
1075 FORI=828TO855:READX:POKEI,X:NEXTI
1080 PRINT"[152]"SPC(5)"[194]ITTE WAEHLEN [211]IE EINE [207]PTION:"
1085 WW=0
1090 PRINT""
1095 PRINTSPC(11)"[212]EXTVERARBEITUNG"
1100 PRINTSPC(10)"[193]DRESSENVERWALTUNG"
1105 PRINTSPC(9)"[201]NSTALLATION [196]RUCKER"
1110 PRINTSPC(15)"[194]EENDEN"
1115 IFWW>4THENWW=4
1120 IFWW<1THENWW=1
1125 PRINT"";
1130 IFWW=1THENPRINTSPC(11)"[212]EXTVERARBEITUNG"
1135 IFWW=2THENPRINTSPC(10)"[193]DRESSENVERWALTUNG"
1140 IFWW=3THENPRINTSPC(9)"[201]NSTALLATION [196]RUCKER"
1145 IFWW=4THENPRINTSPC(15)"[194]EENDEN"
1150 POKE198,0:WAIT198,1:GETWW$
1155 IFWW$=""ORWW$=" "THENWW=WW+1:GOTO1090
1160 IFWW$="[145]"ORWW$="[160]"THENWW=WW-1:GOTO1090
1165 IFWW$<>CHR$(13)THEN1150
1170 IFWW=1THENDN$="LADER"
1175 IFWW=2THENDN$="ADRESSEN":GOSUB1215:LOAD"0:ZEICHENSATZ",8,1
1180 IFWW=3THENDN$="INSTALL"
1185 IFWW=4THENSYS64738
1190 PRINT"[144]LOAD"CHR$(34)"0:"DN$;CHR$(34)",8,1"
1195 PRINT"?"CHR$(34)"[147]"CHR$(34)":RUN[145][145][145][145][145][145][145]";
1200 OPEN1,8,15,"I0":CLOSE1
1205 POKE631,13:POKE632,13:POKE198,2
1210 END
1215 PRINT"[147][152]";
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]";
1225 PRINT"[221][146] + [205] [193][160][211][160][212][160][197][160][210][160]-[160][193] [196] [210] [197] [211] [211] + [152][221]";
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]"
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]"
1240 PRINT" [221] [215]RITTEN 1987 BY [195]ARSTEN [203]IPPING [221]
1245 [153]" (null) (C) 1987 (null)ARKT UND (null)ECHNIK (null)
1250 PRINT" [221] [221]"
1255 PRINT" [221] ********************* [221]"
1260 PRINT" [221] * [195]ARSTEN [203]IPPING * [221]"
1265 PRINT" [221] * [215]INTERSTRASSE 40 * [221]"
1270 PRINT" [221] * 3050 [215]UNSTORF 1 * [221]"
1275 PRINT" [221] * [212]EL.: 05031/71693 * [221]"
1280 PRINT" [221] ********************* [221]"
1285 PRINT" [221] [221]"
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]"
1295 RETURN
1300 :
1305 DATA169,0,160,112,133,95,132,96,169,0,160,128,133,90,132,91,169,0,160
1310 DATA240,133,88,132,89,32,191,163,96