home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47a.d64
/
poster-hc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
67 lines
0 POKE56,32:CLR
1 PRINT"[147][142]POSTER-HARDCOPY MPS 801/803
3 [153]"N.HEUSLER, 190388-ARR
4 IFPEEK(49158)<>165THENLOAD"POSTER-C000",8,8
5 POKE53281,.:POKE53280,.:QW$="P":FORI=1TO7:QW$=QW$+QW$:NEXT
6 F$(1)=" [146]":F$(2)=" ":F$(3)=".":F$(4)=".[146]":F$(5)="[166]":F$(6)="*
7 QW$[178]QW$[170][200](QW$,122):F$(7)[178]"(null)WAIT":F$(8)[178]"(null)
8 EP$="NEIN":L$="JA ":FF=1:CC=2:X$="[145][157][157][157][157][164][164][164][164]
9 [153]"":F$[178]F$(FF):C$[178]F$(CC)
10 [153]" F1 WAIT"X$" FUELLZEICHEN = "[199](34);:[151]212,.:[153]F$[199](34)
12 [153]" F3 WAIT"X$" LEERZEICHEN = "[199](34);:[151]212,.:[153]C$[199](34)
14 [153]" F5 WAIT"X$" GRAFIK BEIM DRUCK LOESCHEN: "L$
15 [153]" F7 WAIT"X$" AUF GEHT'S !
16 PRINT" F2 [146]"X$" GRAFIK ZEIGEN
17 [153]" F4 WAIT"X$" EINZELPAPIER: "EP$"
18 PRINT" F6 [146]"X$" INVERTIEREN
19 [151]198,.
20 [161]A$:[139]A$[178]"INPUT"[167]30
22 [139]A$[178]"DIM"[167]40
24 [139]A$[178]"READ"[167]50
25 [139]A$[178]"IF"[167][158]49155
26 [139]A$[178]"LET"[167]100
27 [139]A$[178]"GOTO"[167]60
28 [139]A$[178]"RUN"[167]70
29 [137]20
30 FF[178]FF[170]1:[139]FF[178]CC[167]30
32 [139]FF[177]8[167]FF[178]1:[139]FF[178]CC[167]FF[178]2
34 [137]9
40 CC[178]CC[170]1:[139]FF[178]CC[167]40
42 [139]CC[177]8[167]CC[178]1:[139]FF[178]CC[167]CC[178]2
44 [137]9
50 [139]L$[178]"JA "[167]L$[178]"NEIN":[137]9
52 L$[178]"JA ":[137]9
60 [151]53272,29:[151]53265,59:[153]"LOAD"QW$QW$QW$"CMD"QW$;
62 [151]198,.:[146]198,1:[151]53272,21:[151]53265,27
64 [153]"LOAD":[137]9
70 [139]EP$[178]"JA "[167]EP$[178]"NEIN":[137]9
72 EP$[178]"JA ":[137]9
100 [153]"LOADMOMPLS...BITTE DRUCKER ANSCHALTEN !
110 FORI=1TO3:POKE32767+I,ASC(MID$(C$,I)+""):NEXT
112 FORI=1TO3:POKE32770+I,ASC(MID$(F$,I)+""):NEXT
113 POKE32774,255+(L$="NEIN")*255
114 PRINT"(TASTE, F7 [146]"X$" = ABBRUCH)
116 [151]198,.:[146]198,1:[161]A$:[139]A$[178]"LET"[167]64
120 [151]142,.
130 [151]53272,29:[151]53265,59:[153]"LOAD"QW$QW$QW$"CMD"QW$;
132 [159]4,4:[157]4,;:[158]49152:[158]65484:[160]4
140 [139][194](142)[178].[167]160
143 [151]53272,21:[151]53265,27:[153]"LOAD":[139][194](140)[178].[167]145
144 [139]EP$[178]"NEIN"[167]130
145 [139][194](140)[178].[167][159]4,4:[152]4," ";:[129]I[178]1[164]53:[152]4,"TAN";:[130]:YG[178]1
146 [139]YG[167]YG[178].:[152]4," ENDE PAPIERBAHN"PB"TANTANTANTANTANTAN":[160]4
147 [153]"BITTE PAPIER JUSTIEREN ! (TASTE)":[151]198,.:[146]198,1:[153]"OK
148 IFPEEK(140)=.THENOPEN4,4:PRINT#4," ";:FORI=1TO58:PRINT#4,"[192]";:NEXT:YG=1
149 IFYGTHENYG=.:PB=PB+1:PRINT#4," PAPIERBAHN"PB"[192][192][192][192][192][192]":CLOSE4
159 GOTO130
160 OPEN4,4:PRINT#4," ";:FORI=1TO53:PRINT#4,"[192]";:NEXT
162 PRINT#4," ENDE PAPIERBAHN"PB"[192][192][192][192][192][192]":CLOSE4:POKE53272,21
164 POKE53265,27:PRINT"[147]FERTIG !":END
199 :
200 REM POSTER-HARDCOPY
202 REM VON NIKOLAUS HEUSLER
204 REM ZWENGAUERWEG 18
206 REM D-8000 MUENCHEN 71
208 REM 089/792940
210 REM REVISION DEUX VOM 270789