1 REM DEMO ZU 'LIST NEU.OBJ'
2 REM TESTDRUCKER: PANASONIC KX-P 1091
3 IFA=0THENA=1:LOAD"LIST NEU.OBJ",8,1
4 GOSUB2000
5 SYS49152:REM INIT
10 OPEN1,4:CMD1
20 READDR$:IFDR$="@"THEN100
30 PRINT#1,DR$:GOTO20
100 PRINT#1:CLOSE1:OPEN1,4:CMD1:LIST:PRINT#1:CLOSE1:END
1000 DATA"DIES IST EIN TEST FUER DEN DRUCKERTREIBER 'LIST NEU.OBJ'"
1010 DATA"DER C64 IST MIT EINEM PARALLELKABEL AM USERPORT MIT DEM DRUCKER"
1020 DATA"VERBUNDEN."
1030 DATA"MIT DIESER MASCHINENROUTINE KANN DER USERPORT MIT DENSELBEN"
1040 DATA"DRUCKERBEFEHLEN ANGESPROCHEN WERDEN, ALS OB ES DER SERIELLE WAERE."
1050 DATA"CURSOR- UND STEUERZEICHEN WERDEN BEIM AUSDRUCK EINES LISTINGS IN"
1060 DATA"KLARTEXT UMGEWANDELT."
1061 DATA"ZUR DEMONSTRATION WIRD DIESES PROGRAMM, DAS NUR SO VON INVERSEN,"
1070 DATA"COMMODORE-SPEZIFISCHEN ZEICHEN WIMMELT, ALS LISTING AUSGEGEBEN:","@"
2000 POKE53280,0:POKE53281,0:PRINT"[147][158]"
2010 PRINT"        [146]      [146]    [146]
2012 [153]"     WAIT         WAIT    WAIT
2014 PRINT"     [146]       [146]  [146]    [146]     [146]   [146]  [146]
2015 [153]"        WAIT       WAIT     WAIT    WAIT   WAIT
2017 PRINT"     [146]    [146]     [146]          [146]  [146]
2018 [153]"CLR     WAIT    WAIT     WAIT      WAIT      WAIT
2020 PRINT"        [146]      [146]         [146]   [146]
2030 [142]