0 ' BAKWDS.BA - by Don Zeikel 1 ' Club 100 library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 11 REM Type and see it backwards! SAVE to a new file! LOAD from an old file, either to a new file, or just to the screen! 12 CLEAR1000:MAXFILES=2:Z$=CHR$(27)+"p"+CHR$(154)+CHR$(27)+"q":SCREEN0,0:GOTO27 13 A$=INKEY$:IFA$=""THEN13ELSERETURN 14 IFEOF(2)THENTS=0:GOSUB50:GOTO16ELSEA$=INPUT$(1,2) 15 IFA$=CHR$(10)THEN14ELSE17 16 IFTSTHEN14:GOTO20ELSEA$=INKEY$ 17 IFETHEN19 18 Z=Z+1:IFZMOD46=0THENPRINT@J+I-2,Z$;ELSEIFZMOD46=23THENPRINT@J+I-2,CHR$(154); 19 IFTSTHEN20ELSEIFA$=""THEN16 20 IFA$=CHR$(13)THENL=1:PRINT@J+I-2,CHR$(143);:GOTO23 21 PRINT@J+I-2,A$;:IFETHENE=0:GOTO23 22 IFI=1THENPRINT@J+78,Z$;ELSEPRINT@J+I-3,Z$; 23 D=I-1:IFD<0THEND=0 24 IFLTHENX$(Q)=SPACE$(D)+CHR$(143)+RIGHT$(X$(Q),40-I)ELSEX$(Q)=SPACE$(D)+A$+RIGHT$(X$(Q),40-I) 25 IFLTHENA$="" 26 Y$(Q)=SPACE$(D)+A$+RIGHT$(Y$(Q),40-I):RETURN 27 CLS:PRINT@52,CHR$(27)"p BAKWDS.100 "CHR$(27)"q":PRINT@132,"by Don Zeikel":PRINT@247,CHR$(27)"p PRESS ANY KEY TO BEGIN "CHR$(27)"q";:GOSUB13:CLS:GOSUB50:ONKEYGOSUB49,,,,,39,44,55:ONERRORGOTO53:KEYON:Q=0:FORJ=1TO201STEP40:Q=Q+1 28 FORI=40TO1STEP-1:L=0:IFTSTHENGOSUB14ELSEGOSUB16 29 IFL=1THEN31 30 NEXTI 31 IFTR=1ANDL=1THENPRINT#1,Y$(Q)ELSEIFTR=1THENPRINT#1,Y$(Q); 32 NEXTJ:GOTO34 33 Q=1:FORI=0TO200STEP40:Q=Q+1:PRINT@I,X$(Q);:NEXTI:PRINT@240,SPACE$(40);:FORI=2TO6:X$(I)=X$(I+1):NEXTI 34 J=241:Q=7:FORI=40TO1STEP-1:L=0:IFI=1THENE=1 35 IFTSTHENGOSUB14ELSEGOSUB16 36 IFL=1THEN37ELSENEXTI 37 IFTR=1ANDL=1THENPRINT#1,Y$(Q)ELSEIFTR=1THENPRINT#1,Y$(Q); 38 GOTO33 39 UQ$="":IFTRTHENTR=0:CLOSE1:GOSUB50:RETURN 40 PRINT@280,SPACE$(39);:PRINT@280,"NAME OF FILE TO SAVE? ";:UQ$="" 41 GOSUB13:IFA$=CHR$(13)THEN42ELSEUQ$=UQ$+A$:PRINTA$;:GOTO41 42 IFUQ$=""THENRETURNELSEOPENUQ$FOROUTPUTAS1:TR=1:L=0 43 GOSUB50:RETURN 44 UR$="":IFTSTHENTS=0:CLOSE2:GOSUB50:RETURNELSECLOSE:TS=1:PRINT@280,SPACE$(39);:PRINT@280,"NAME OF FILE TO LOAD? "; 45 GOSUB13:IFA$=CHR$(13)THEN47 46 UR$=UR$+A$:PRINTA$;:GOTO45 47 OPENUR$FORINPUTAS2:GOSUB40:IFUQ$<>""THENGOSUB43ELSEGOSUB50 48 RETURN 49 MAXFILES=1:MENU 50 PRINT@280," uneM"SPACE$(19)"evaS daoL lebaL";:IFTRTHENPRINT@304,CHR$(27)"pevaS"CHR$(27)"q"; 51 IFTSTHENPRINT@309,CHR$(27)"pdaoL"CHR$(27)"q"; 52 RETURN 53 IFERR=52THENPRINT@280,SPACE$(39);:PRINT@280,"NO SUCH FILE..PRESS ANY KEY TO CONTINUE";:TS=0 54 GOSUB13:RESUME44 55 SCREEN0,0:CS=CSRLIN:PO=POS(0):SC=SC+1:IFSCMOD2=1THENPRINT@280,SPACE$(39);ELSEGOSUB50 56 PRINT@CS*40+PO,"";:RETURN