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