diff --git a/softswitch.bas b/softswitch.bas index 1178a2e..3a7a7ee 100644 --- a/softswitch.bas +++ b/softswitch.bas @@ -1,12 +1,12 @@ -0 TEXT:PRINT CHR$(21):HOME:GOTO 80 -1 IF AZ THEN U=AUX:V=SPC:W=SPC:REM ALT ZP +0 TEXT:PRINT CHR$(21):HOME:GOTO 80:REM VER MP.3 +1 IF S8 AND P2 THEN U=AUX:V=SPC:W=SPC 2 VTAB Y:HTAB 7:? B$(U);:HTAB 18:? B$(V);:HTAB 29:? B$(W);:RETURN:REM COLS RW/R/W -3 IF RR OR RW THEN U=SPC:REM AUX MEM -4 V=RAM:IF RR THEN V=AUX -5 W=RAM:IF RW THEN W=AUX -6 RETURN -7 IF S8 AND P2 THEN U=AUX:R=AUX:W=AUX -8 GOSUB 2:RETURN +3 Z=2*RR + RW:V=SPC:W=SPC:REM AUX MEM +4 IF Z=0 THEN U=RAM:V=SPC:W=SPC +5 IF Z=1 THEN U=SPC:V=RAM:W=AUX +6 IF Z=2 THEN U=SPC:V=AUX:W=RAM +7 IF Z=3 THEN U=AUX:V=SPC:W=SPC +8 RETURN 9 VTAB Y:HTAB 40:PRINT MID$(C$,Z,1):RETURN 10 L$="":R$="":Z$=T$(I):U=H(I):V=LEN(Z$):M$=MID$(Z$,U,1):IF S(10) THEN R$=T$(I+D):GOTO 40:REM HOTKEY 20 IF U-1 > 0 THEN L$=LEFT$ (Z$,U-1) @@ -64,15 +64,15 @@ 580 IF Z=7 THEN U=SPC:V=RU1:W=ROM 590 GOSUB 2 600 REM *** LOWER 48K -610 Y= 7:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $BFFF -620 Y= 9:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $4000 -630 Y=11:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $2000 -640 Y=13:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0C00 -650 Y=15:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0800 -660 Y=17:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $0400 -670 Y=19:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0200 -680 Y=21:U=RAM:V=RAM:W=RAM:GOSUB 1:REM $0000 -690 VTAB 1 +610 Y= 7:U=RAM:GOSUB 3:GOSUB 2:REM $BFFF +620 Y= 9:U=RAM:GOSUB 3:GOSUB 2:REM $4000 +630 Y=11:U=RAM:GOSUB 3:GOSUB 1:REM $2000 +640 Y=13:U=RAM:GOSUB 3:GOSUB 2:REM $0C00 +650 Y=15:U=RAM:GOSUB 3:GOSUB 2:REM $0800 +660 Y=17:U=RAM:GOSUB 3:GOSUB 1:REM $0400 +670 Y=19:U=RAM:GOSUB 3:GOSUB 2:REM $0200 +680 Y=21:U=RAM:IF AZ THEN U=AUX:REM $0000 +690 V=SPC:W=SPC:GOSUB 2:VTAB 1 700 K=PEEK(49152):IF K<128 THEN 700 710 K=K-128:POKE 49168,0:IF K = 27 THEN VTAB 1:END 720 CMD=0:FOR I=1 TO D:IF K = K(I) THEN CMD=I:I=D:GOTO 740 diff --git a/softswitch.po b/softswitch.po index 9284583..85939a2 100644 Binary files a/softswitch.po and b/softswitch.po differ