home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / bakwds.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  49 lines
  1. 0 ' BAKWDS.BA - by Don Zeikel
  2. 1 ' Club 100 library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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!
  4. 12 CLEAR1000:MAXFILES=2:Z$=CHR$(27)+"p"+CHR$(154)+CHR$(27)+"q":SCREEN0,0:GOTO27
  5. 13 A$=INKEY$:IFA$=""THEN13ELSERETURN
  6. 14 IFEOF(2)THENTS=0:GOSUB50:GOTO16ELSEA$=INPUT$(1,2)
  7. 15 IFA$=CHR$(10)THEN14ELSE17
  8. 16 IFTSTHEN14:GOTO20ELSEA$=INKEY$
  9. 17 IFETHEN19
  10. 18 Z=Z+1:IFZMOD46=0THENPRINT@J+I-2,Z$;ELSEIFZMOD46=23THENPRINT@J+I-2,CHR$(154);
  11. 19 IFTSTHEN20ELSEIFA$=""THEN16
  12. 20 IFA$=CHR$(13)THENL=1:PRINT@J+I-2,CHR$(143);:GOTO23
  13. 21 PRINT@J+I-2,A$;:IFETHENE=0:GOTO23
  14. 22 IFI=1THENPRINT@J+78,Z$;ELSEPRINT@J+I-3,Z$;
  15. 23 D=I-1:IFD<0THEND=0
  16. 24 IFLTHENX$(Q)=SPACE$(D)+CHR$(143)+RIGHT$(X$(Q),40-I)ELSEX$(Q)=SPACE$(D)+A$+RIGHT$(X$(Q),40-I)
  17. 25 IFLTHENA$="" 
  18. 26 Y$(Q)=SPACE$(D)+A$+RIGHT$(Y$(Q),40-I):RETURN
  19. 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
  20. 28 FORI=40TO1STEP-1:L=0:IFTSTHENGOSUB14ELSEGOSUB16
  21. 29 IFL=1THEN31
  22. 30 NEXTI
  23. 31 IFTR=1ANDL=1THENPRINT#1,Y$(Q)ELSEIFTR=1THENPRINT#1,Y$(Q);
  24. 32 NEXTJ:GOTO34
  25. 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
  26. 34 J=241:Q=7:FORI=40TO1STEP-1:L=0:IFI=1THENE=1
  27. 35 IFTSTHENGOSUB14ELSEGOSUB16
  28. 36 IFL=1THEN37ELSENEXTI
  29. 37 IFTR=1ANDL=1THENPRINT#1,Y$(Q)ELSEIFTR=1THENPRINT#1,Y$(Q);
  30. 38 GOTO33
  31. 39 UQ$="":IFTRTHENTR=0:CLOSE1:GOSUB50:RETURN
  32. 40 PRINT@280,SPACE$(39);:PRINT@280,"NAME OF FILE TO SAVE? ";:UQ$=""
  33. 41 GOSUB13:IFA$=CHR$(13)THEN42ELSEUQ$=UQ$+A$:PRINTA$;:GOTO41
  34. 42 IFUQ$=""THENRETURNELSEOPENUQ$FOROUTPUTAS1:TR=1:L=0
  35. 43 GOSUB50:RETURN
  36. 44 UR$="":IFTSTHENTS=0:CLOSE2:GOSUB50:RETURNELSECLOSE:TS=1:PRINT@280,SPACE$(39);:PRINT@280,"NAME OF FILE TO LOAD? ";
  37. 45 GOSUB13:IFA$=CHR$(13)THEN47
  38. 46 UR$=UR$+A$:PRINTA$;:GOTO45
  39. 47 OPENUR$FORINPUTAS2:GOSUB40:IFUQ$<>""THENGOSUB43ELSEGOSUB50
  40. 48 RETURN
  41. 49 MAXFILES=1:MENU
  42. 50 PRINT@280," uneM"SPACE$(19)"evaS daoL lebaL";:IFTRTHENPRINT@304,CHR$(27)"pevaS"CHR$(27)"q";
  43. 51 IFTSTHENPRINT@309,CHR$(27)"pdaoL"CHR$(27)"q";
  44. 52 RETURN
  45. 53 IFERR=52THENPRINT@280,SPACE$(39);:PRINT@280,"NO SUCH FILE..PRESS ANY KEY TO CONTINUE";:TS=0
  46. 54 GOSUB13:RESUME44
  47. 55 SCREEN0,0:CS=CSRLIN:PO=POS(0):SC=SC+1:IFSCMOD2=1THENPRINT@280,SPACE$(39);ELSEGOSUB50
  48. 56 PRINT@CS*40+PO,"";:RETURN
  49.