U|R PRESET LINE 31826 DELETE CLS GO "($fa) GO "&9 GO & DATA ($FFB7)|T ($ea) GO &|T SAVE GO & DELETE CLS GO " FLREAD CLS STEP "($fd)|R AND GO &($fc)|R ? GO TAB(/=+| REM REM line numbering breaks here! REM ($fc)|R4& SET RENUM 1 DELETE ]'1 TROFF  Z&($f9)/ DELETE FOR 4($f6)|T'C5 EDIT EXEC 1 TRON Z&($ec)5&L GO ($FF7D)O\ STEP ($FF75)Z4& SET RENUM 1 INPUT  ($ec) MOTOR ($ed) GO  CLOSE PMODE &($f7) PCOPY |T EDIT FOR CLOSE PMODE &($fa)5&~|U    >> >(> > 02& ((*$     ** >  >   "&*2"  "  > " "  $> > <"  >"" > """" ""8       > >  "  "*.,  "">""" <""<""< " " 8$"""$8 > < > > <  &" """>"""  " "$(0($" > "6**""" ""2*&"" """"" <""< """*$ <""<($"  " > """""" """ """**6" """" "" > > ((>((. &***2  ">"" " 255 1024 REM REM line numbering breaks here! REM $ ,2""<   &"" "<  8 "" ,2"""     $(0($  4***" , """ 8$$8 $$ ,2  < < $$$* "" ""** "" $$8 >> < ( &*2  $$$ , ($FFFF)($FFE5) FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0042 Exec: $8b8d * REM *(Start: 09217 Length: 00066 Exec: 35725) * REM ************************************************* REM 10 DEF USR 0=31832 30 A$="MARIAN JENSSEN"+ CHR$ (34) 40 D= USR ( VARPTR (A$)) REM REM line numbering breaks here! REM FROM ($FFFF)($FFF0)($FFFF)($FFEF) 65423 65535 ( DSKINIT ($ed) KLESPOKER D 241 REM REM line numbering breaks here! REM MARIAN BAS ($fc) K HI-RES BIN FREAD  PCOPY INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $02e8 Exec: $8b8d * REM *(Start: 09217 Length: 00744 Exec: 35725) * REM ************************************************* REM 10 PMODE 4,1: SCREEN 1,1 11 FOR T=117 TO 158: PSET (136,T,5): NEXT 12 FOR T=117 TO 158: PSET (135,T,5): NEXT T 13 FOR T=117 TO 158: PSET (134,T,5): NEXT T 14 FOR T=117 TO 158: PSET (133,T,5): NEXT T 15 FOR T=117 TO 158: PSET (132,T,5): NEXT 16 FOR T=117 TO 158: PSET (131,T,5): NEXT T 17 FOR T=117 TO 158: PSET (130,T,5): NEXT T 18 FOR T=117 TO 158: PSET (129,T,5): NEXT T 19 FOR T=117 TO 158: PSET (128,T,5): NEXT T 20 FOR T=117 TO 158: PSET (127,T,5): NEXT T 21 FOR T=117 TO 158: PSET (126,T,5): NEXT T 22 FOR T=117 TO 158: PSET (125,T,5): NEXT T 23 FOR T=117 TO 158: PSET (124,T,5): NEXT T 24 FOR T=118 TO 157: PSET (123,T,5): NEXT T 25 FOR T=118 TO 157: PSET (122,T,5): NEXT T 26 FOR T=119 TO 156: PSET (121,T,5): NEXT T 27 FOR T=119 TO 156: PSET (120,T,5): NEXT T 28 FOR T=120 TO 155: PSET (119,T,5): NEXT 29 FOR T=120 TO 155: PSET (118,T,5): NEXT T 30 FOR T=121 TO 155: PSET (116,T,5): NEXT T 31 FOR T=121 TO 155: PSET (117,T,5): NEXT 32 FOR T=122 TO 154: PSET (115,T,5): NEXT 10000 GO TO 10000 REM REM line numbering breaks here! REM FROM FROM FROM