home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8706b.d64
/
lader-neu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
42 lines
10 IFA=0THENGOSUB10000
20 IFA=0THENA=1:LOAD"T1",8,1
30 IFA=1THENA=2:LOAD"T3",8,1
40 IFA=2THENA=3:LOAD"T5",8,1
50 IFA=3THENA=4:LOAD"T4",8,1
60 IFA=4THENA=5:LOAD"ZEICHENSATZ",8,1
70 IFA=5THENA=6:LOAD"T2",8,1
71 IFA=6THENA=6.2:LOAD"T7.00",8,1
72 IFA=6.2THENA=6.5:POKE50943,2:LOAD"T8",8,1
80 IFA=6.5THENA=7:LOAD"DRUCKER D",8,1
90 IFA=7THENA=8:POKE53265,11:LOAD"FORMULAR F",8,1
95 POKE51974,25:POKE51987,26:POKE52039,89:POKE52052,90
100 IFTYP=1ANDA=8THENA=9:LOAD"NORMAL(T)",8,1
105 IFTYP=2ANDA=8THENA=9:LOAD"CENTRONIC(T)",8,1
110 IFTYP=3ANDA=8THENA=9:LOAD"UMLAUT1",8,1
120 IFTYP=4ANDA=8THENA=9:LOAD"UMLAUT2",8,1
130 IFTYP=5ANDA=8THENA=9:LOAD"INDI",8,1
140 IFTYP>0THEN SYS39424
150 SYS49152
10000 POKE53265,11:POKE53281,0:POKE53280,11:PRINT"[147][152]";
10010 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]";
10020 PRINT"[221][146] + [205] [193][160][211][160][212][160][197][160][210][160]-[160][212][160][197][160][216][160][212] + [152][221]";
10030 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]"
10040 PRINT" [204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
10050 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]"
10060 PRINT" [221] [215]RITTEN 1985 BY [205]ARTIN [208]AHL [221]
10065 [153]" (null) (C) 1986 (null)ARKT UND (null)ECHNIK (null)
10070 PRINT" [221] [221]"
10080 PRINT" [221] ********************* [221]"
10090 PRINT" [221] * [205]ARTIN [208]AHL * [221]"
10100 PRINT" [221] * 4920 [204]EMGO * [221]"
10110 PRINT" [221] * IMPROVED BY [195][214][199] # * [221]"
10120 PRINT" [221] * 8000 [205]UENCHEN * [221]"
10130 PRINT" [221] ********************* [221]"
10140 PRINT" [221] [221]"
10150 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]"
10160 POKE53265,27:POKE1,55
10170 OPEN1,8,3,"TYP,S,R":OPEN15,8,15:INPUT#15,ER
10180 IFER=62THENCLOSE15:CLOSE1:RETURN
10190 INPUT#1,TYP:CLOSE15:CLOSE1
10200 RETURN