1 REM +-------------------------------+ 2 REM ! MYSKO -Ett litet g}tfullt ! 3 REM ! ===== program f|r den som ! 4 REM ! vill kunna sin ABC80 ! 5 REM ! Per L. till 200% OBS! kanske ! 6 REM ! 800426 inte fungerar p} nya ! 7 REM ! versioner av ABC80... ! 8 REM ! ! 9 REM The-mad-programmer-strikes-again! 10 REM ===============================+ 11 O=1=2=3=4=5=6=7=8=9 12 O=1=2=3=4=5=6=7=8 13 O=1=2=3=4=5=6=7 14 O=1=2=3=4=5=6 15 O=1=2=3=4=5 16 O=1=2=3=4 17 O=1=2=3 18 O=1=2 19 O=1 20 ; CALL(10) 21 O=-O : O=-O : SETDOT X : O=0 : O=O 22 ; ;;;;;;;0;;;;;;;0;;;;;;;;0 23 ; '''''''0'''''''0''''''''0 24 ; 0+0+0+0+0+0+0+0+0+0+0+0+0 25 ; 0-0-0-0-0-0-0-0-0-0-0-0-0 26 ; 0*0*0*0*0*0*0*0*0*0*0*0*0 27 ; O/O/O/O/O/O/O/O/O/O/O/O/O 28 ; 0=0=0=0=0=0=0=0=0=0=0=0=0 29 ; 0<0<0<0<0<0<0<0<0<0<0<0<0 30 ; 0>0>0>0>0>0>0>0>0>0>0>0>0 31 ; 0%0%0%0%0%0%0%0%0%0%0%0%0 32 ; O$O$O$O$O$O$O$O$O$O$O$O$O 33 ; ((((((((((((0)))))))))))) 34 ; #O0O00-11111-22222-33333 35 ; (-O(-O(-O(O-O)-0)-0)-0) 36 ; """""""""""""""""""""""" 37 IF ]=\ IF [=] IF \ SETDOT \ : ]=[ : \=] : [=\ ELSE ; ELSE ; ELSE ; 38 ; CUR(-O0,-O0)O0;CUR(-111,-111)111;TAB(-2222);-2222 39 OUT 0,1,2,3,4,5,6,INP(7) 40 IF ]$=[$ IF [$=\$ IF \$=]$ O(0)=17 : O(1)=57 : O(2)=7 ELSE O(0)=75 : O(1)=7 : O(2)=71 ELSE O(1)=57 : O(2)=75 41 ]=[=\ : DATA STOPP,START,STOPP 42 DATA START,STOPP,START,STOPP 43 READ X$ : REM READ X$ 44 IF X$="STOPP" THEN STOP ELSE PRINT X$ 45 OPEN """""""""""" ASFILE O0 46 ; #O0CHR$(12)'ABC80' 47 INPUTLINE #O0(O0(O0)),O0$ 48 OUT O(1),O(2) 49 ; #O0IEC$(O0)