home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47b.d64
/
printerblocksatz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
73 lines
0 REM ** PRINTERBLOCKSATZ **
1 RUN10
2 OPEN4,4,7:PRINT"[147]
3 [135]A$:[139]A$[179][177]"@"[167][158]49152,4,232,.,A$:[137]3
4 [131]"STR$IESER (null)EXT WIRD VON '(null)RINTERBLOCK-","SATZ' AUF (null)UNSCH ZENTRIERT ODER
5 DATA"MIT [194]LOCKSATZ VERSEHEN. [215]IE [211]IE","SEHEN, KANN MAN AUCH [194]REITSCHRIFT
6 [131]"ODER CHR$RAFIK VERWENDEN: FNFNRNDORLOGSINEXP/FRE^SIN/, OHNE","DASS DER RECHTE (null)AND LEI-
7 DATA"DEN MUSS. [196]AS IST DOCH STARK, ODER ?","[200]ABEN [211]IE SCHON DIE [195]ONTROL-
8 [131]"@
9 PRINT#4,"FUNKTION PROBIERT ?":CLOSE4:END
10 FORI=1TO9:READQ$:NEXT:FORI=49152TO50008:READQ:S=S+Q:POKEI,Q:NEXT
11 IFS><99889THENPRINT"DATA FEHLER !!!":STOP
12 PRINT"[147]PRINTERBLOCKSATZ MPS 801/3
13 [153]"PROGRAMMIERT VON N. HEUSLER 200986
14 PRINT" SYS 49152, LF, LEN, MODE, TEXT$
15 [153]" MODE: BIT = 1 = 0
16 PRINT" # 0 ZENTRIEREN BLOCKSATZ
17 [153]" # 1 KONTROLLE AN AUS
18 PRINT"DIE ANDEREN 6 BITS HABEN KEINE FUNKTION.
19 [153]"BEISPIEL: MODE = 2 => BLOCKSATZ MIT TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]14)"KONTROLLE
20 PRINT"LF = LOG. FILENUMMER (BSP. OPEN 1[146],4"SPC(15)"=> LF = 1)
21 [153]"LEN = ERWUENSCHTE LAENGE (1-479 PIXEL)
22 PRINT"SYS 49155: KONTROLLE NACHTRAEGLICH (TASTE)
23 [151]198,.:[146]198,1:[151]198,.
24 [153]"LOADMIT 'RUN 2' STARTEN SIE EINEN PROBEAUS- DRUCK.
30 :
31 REM PRINTERBLOCKSATZ
32 REM VERSION 2 VOM 280789
33 REM VON NIKOLAUS HEUSLER, ZWENGAUERWEG 18, 8 MUC 71
34 :
10000 DATA76,77,195,76,190,194,,,,,,,,,,,,,,8,128,15,,8,26,,128,15,67,72,65,210
10002 DATA19,18,149,32,32,80,82,73,78,84,69,82,32,66,76,79,67,75,83,65,84,90,32
10004 DATA70,85,78,75,84,73,79,78,32,158,75,79,78,84,82,79,76,76,69,149,32,32
10006 DATA150,146,,32,241,183,142,12,192,32,253,174,32,138,173,32,247,183,140
10008 DATA14,192,141,15,192,170,240,7,192,224,144,3,76,72,178,32,241,183,138,41
10010 DATA3,141,18,192,76,175,192,174,12,192,32,201,255,144,3,76,249,224,169,
10012 DATA160,206,32,155,194,32,121,,240,7,201,59,240,9,76,8,175,32,215,170,76
10014 DATA204,255,32,115,,76,204,255,160,,152,153,,206,200,208,250,96,32,253
10016 DATA174,32,158,173,32,163,182,160,,141,6,192,177,34,201,23,240,15,153,
10018 DATA206,200,204,6,192,144,241,169,,153,,206,96,169,28,133,34,169,192,76
10020 DATA69,164,160,,140,7,192,140,8,192,140,9,192,204,6,192,176,73,185,,206
10022 DATA201,23,240,18,44,9,192,48,62,112,35,201,14,208,11,169,64,141,9,192
10024 DATA208,45,169,255,208,45,201,8,208,4,169,128,208,239,32,73,193,144,28
10026 DATA169,6,32,88,193,144,21,201,15,240,12,32,73,193,144,12,169,12,32,88
10028 DATA193,144,5,169,,141,9,192,200,208,178,96,170,16,7,169,1,32,88,193,144
10030 DATA242,201,9,240,233,201,15,240,229,208,232,201,32,144,231,201,160,176
10032 DATA227,170,48,2,56,96,24,96,24,109,7,192,141,7,192,173,8,192,105,,141,8
10034 DATA192,24,96,140,11,192,142,10,192,174,6,192,138,24,109,11,192,168,236
10036 DATA10,192,144,19,173,10,192,208,4,224,255,240,10,189,,206,153,,206,202
10038 DATA136,208,232,24,173,6,192,109,11,192,141,6,192,144,3,76,113,165,96,142
10040 DATA13,192,189,,206,201,23,240,15,232,236,6,192,144,2,162,,236,13,192,208
10042 DATA236,24,96,232,189,,206,201,23,240,248,202,56,96,160,1,32,105,193,174
10044 DATA10,192,169,23,157,,206,96,32,219,192,173,8,192,240,10,173,7,192,201
10046 DATA224,144,3,76,113,165,173,7,192,74,141,16,192,173,8,192,240,9,169,128
10048 DATA24,109,16,192,141,16,192,173,6,192,74,141,17,192,96,162,,189,,206,201
10050 DATA32,208,5,169,23,157,,206,232,208,241,96,32,1,194,32,210,193,32,219
10052 DATA192,173,8,192,205,15,192,144,16,208,10,173,7,192,205,14,192,144,6,240
10054 DATA3,76,113,165,96,174,17,192,32,160,193,176,3,76,72,178,232,32,196,193
10056 DATA232,142,17,192,173,18,192,41,2,240,3,32,190,194,76,25,194,32,210,193
10058 DATA173,14,192,74,72,173,15,192,240,5,104,24,105,128,72,104,56,237,16,192
10060 DATA144,195,240,23,72,162,,160,5,32,105,193,162,4,189,23,192,157,,206,202
10062 DATA16,247,104,141,2,206,173,18,192,41,2,240,3,32,190,194,96,173,18,192
10064 DATA41,1,208,188,76,19,194,133,2,132,3,160,,177,2,240,9,201,23,240,6,32
10066 DATA210,255,144,8,96,169,19,160,192,32,30,171,230,2,208,229,230,3,208,225
10068 DATA169,,141,32,208,141,33,208,169,32,160,192,32,30,171,162,,169,1,133
10070 DATA212,189,,206,32,236,194,168,240,5,232,208,240,240,31,232,240,28,169,
10072 DATA32,236,194,76,225,194,32,27,195,165,211,240,4,201,40,208,8,173,134,2
10074 DATA73,4,141,134,2,96,32,6,195,76,215,170,174,17,192,169,1,157,40,216,189
10076 DATA40,4,201,32,208,5,169,160,157,40,4,96,201,13,240,21,201,141,240,28
10078 DATA201,20,240,31,76,210,255,72,169,1,44,169,,133,199,104,96,32,42,195
10080 DATA169,77,32,210,255,72,144,239,32,42,195,169,205,208,243,32,42,195,169
10082 DATA84,208,236,32,165,192,32,80,192,32,145,194,76,123,192