home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Pack
/
Power_Pack_1_1992_Alfons_Mittelmeyer_de.d64
/
treibergenerator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
147 lines
0 :
10 rem programmed by holger heinrich
11 rem published 1988 by
12 rem commodore welt/disk muenchen
13 rem any problems? write to
14 rem hotbox
15 rem postfach 165
16 rem 3110 uelzen
17 :
18 rem --- treiber-generator ---
19 rem fuer action-text 64
20 :
30 poke53280,0:poke53281,0
40 print"[158][147]"chr$(9)chr$(142)" treiber generator fuer action-text"
41 print" ------------------------------------"
50 dim tw(255)
60 print"einen moment bitte..."
70 tr$="":fori=1to255:readw:tr$=tr$+chr$(w):next
72 fori=1to128:readw:tb$(0)=tb$(0)+chr$(w):next
74 fori=1to128:readw:tb$(1)=tb$(1)+chr$(w):next
80 print"[145] "
81 nw$="00"
90 z=0
100 print"anfangssequenz: 16 zeichen"
110 fori=0to15:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
120 print"zeilensequenz: 8 zeichen"
130 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
140 print"seitensequenz: 16 zeichen"
150 fori=0to15:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
160 print"endsequenz: 8 zeichen"
170 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
180 print" leerzeilen am blattanfang ? 4[157][157][157]";:inputw:tw(z)=w:z=z+1
190 print" anzahl druckzeilen ? 62[157][157][157][157]";:inputw:tw(z)=w:z=z+1
200 print" leerzeilen am blattende ? 6[157][157][157]";:inputw:tw(z)=w:z=z+1
210 print" wagenruecklauf chr$(x) ? 13[157][157][157][157]";:inputw:tw(z)=w:z=z+1
220 print" endlos =0 / einzel =1 ? 0[157][157][157]";:inputw:tw(z)=w:z=z+1
230 print" geraeteadresse (7=centronics) ? 4[157][157][157]";:inputw:tw(z)=w:z=z+1
240 print" sekundaeradresse ? 0[157][157][157]";:inputw:tw(z)=w:z=z+1
250 print"fettdruck ein: 8 zeichen"
260 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
270 print"fettdruck aus: 8 zeichen"
280 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
290 print"unterstreichen ein: 8 zeichen"
300 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
310 print"unterstreichen aus: 8 zeichen"
320 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
330 print"reversdruck ein: 8 zeichen"
340 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
350 print"reversdruck aus: 8 zeichen"
360 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
370 print"sonderfunktion ein: 8 zeichen"
380 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
390 print"sonderfunktion aus: 8 zeichen"
400 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
410 print"[147]"chr$(9)chr$(14) "[212]ransformer-[212]abelle"
420 print:print"[197]ine der beiden [211]tandarttabellen"
430 print"verwenden (0 / 1=[212]ab.1 / 2=[212]ab.2)? 0[157][157][157]";:inputw
440 ifw>2then410
450 ifw<>0andw<3thentb=w-1:goto1000
500 h$="":print:fori=0to101:print"[218]eichen";
510 ifi=95thenprint" [193]e[157][157][157]";:goto610
520 ifi=96thenprint" [207]e[157][157][157]";:goto610
530 ifi=97thenprint" [213]e[157][157][157]";:goto610
540 ifi=98thenprint" ae[157][157][157]";:goto610
550 ifi=99thenprint" oe[157][157][157]";:goto610
560 ifi=100thenprint" ue[157][157][157]";:goto610
570 ifi=101thenprint" ss[157][157][157]";:goto610
600 poke peek(210)*256+peek(209)+8,i
610 print": [196]ruckcode?"asc(mid$(tb$(1),i+1,1))
620 print"[145]";:inputw
630 h$=h$+chr$(m)
640 next:h$=h$+right$(tb$(1),26):tb$(1)=h$:tb=1
1000 print"[147] -------------"
1010 input"[212]reibername";tn$
1020 iflen(tn$)>13then1010
1030 iflen(tn$)<13thenfori=0to12-len(tn$):tn$=tn$+" ":next
1040 tn$="t."+tn$
1050 open1,8,1,tn$+",p,w":print#1,chr$(0);chr$(16);
1060 print#1,tr$;chr$(0);
1070 fori=0toz-1:print#1,chr$(tw(i));:next
1080 print#1,tb$(tb);:close1:end
62999 : : : : : : : : : : : : : : : :
63000 data1,76,19,16,76,124,16,76
63001 data139,16,76,199,16,76,212,16
63002 data76,188,16,173,53,17,201,7
63003 data240,47,169,0,32,189,255,169
63004 data1,174,53,17,172,54,17,32
63005 data186,255,32,192,255,162,1,32
63006 data201,255,169,0,32,221,237,169
63007 data0,32,221,237,32,204,255,165
63008 data144,41,131,208,2,24,96,56
63009 data96,169,255,141,3,221,173,2
63010 data221,9,4,141,2,221,169,0
63011 data141,1,221,173,0,221,41,251
63012 data141,0,221,9,4,141,0,221
63013 data173,13,221,162,255,169,16,44
63014 data13,221,208,5,202,208,248,56
63015 data96,234,24,96,173,53,17,201
63016 data7,240,6,162,1,32,201,255
63017 data96,234,96,72,173,53,17,201
63018 data7,240,9,104,170,189,119,17
63019 data32,221,237,96,104,170,189,119
63020 data17,141,1,221,173,13,221,173
63021 data0,221,41,251,141,0,221,9
63022 data4,141,0,221,169,16,44,13
63023 data221,240,251,96,234,174,53,17
63024 data224,7,208,212,76,161,16,173
63025 data53,17,201,7,240,4,32,204
63026 data255,96,234,96,173,53,17,201
63027 data7,240,6,169,1,32,195,255
63028 data96,234,96,0,0,0,0,0
63029 data0,0,0,0,0,0,0,0
63030 data0,0,0,0,0,0,0,0
63031 data0,0,0,0,0,0,0
63032 data96,97,98,99,100,101,102,103
63033 data104,105,106,107,108,109,110,111
63034 data112,113,114,115,116,117,118,119
63035 data120,121,122,123,124,125,126,127
63036 data32,33,34,35,36,37,38,39
63037 data40,41,42,43,44,45,46,47
63038 data48,49,50,51,52,53,54,55
63039 data56,57,58,59,60,61,62,63
63040 data64,65,66,67,68,69,70,71
63041 data72,73,74,75,76,77,78,79
63042 data80,81,82,83,84,85,86,87
63043 data88,89,90,91,92,93,94,91
63044 data92,93,123,124,125,126,0,0
63045 data0,0,0,0,0,0,0,0
63046 data0,0,0,0,0,0,0,0
63047 data0,0,0,0,0,0,0,0
63048 data64,65,66,67,68,69,70,71
63049 data72,73,74,75,76,77,78,79
63050 data80,81,82,83,84,85,86,87
63051 data88,89,90,91,92,93,94,91
63052 data32,33,34,35,36,37,38,39
63053 data40,41,42,43,44,45,46,47
63054 data48,49,50,51,52,53,54,55
63055 data56,57,58,59,60,61,62,63
63056 data64,97,98,99,100,101,102,103
63057 data104,105,106,107,108,109,110,111
63058 data112,113,114,115,116,117,118,119
63059 data120,121,122,123,124,125,126,91
63060 data92,93,123,124,125,126,0,0
63061 data0,0,0,0,0,0,0,0
63062 data0,0,0,0,0,0,0,0
63063 data0,0,0,0,0,0,0,0