home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd515 / rem-killer.amos / rem-killer.amosSourceCode < prev   
AMOS Source Code  |  1971-02-04  |  4KB  |  135 lines
  1. Set Buffer 100
  2. '
  3. '
  4. '
  5. '                            REM KILLER  
  6. '
  7. '                                 BY 
  8. '
  9. '                                TEX!
  10. '
  11. '                          ï¿½ OSCARSoft 1991
  12. '
  13. '
  14. '  File to be loaded must have been saved out as an ASCII File before
  15. '                        it can be converted!  
  16. '
  17. '
  18. '
  19. Dim NS$(1000)
  20. Global NS$(),F$,PC,XX
  21. Unpack 10 To 0 : Gr Writing 0 : Limit Mouse 0,0 To 640,390
  22. Reserve Zone 6
  23. Set Zone 1,11,230 To 115,249
  24. Set Zone 2,123,230 To 227,248
  25. Set Zone 3,235,230 To 339,249
  26. Set Zone 4,11,258 To 115,277
  27. Set Zone 5,123,258 To 227,277
  28. Set Zone 6,235,258 To 339,276
  29. STATUS[1]
  30. Do 
  31.    Repeat 
  32.       MZ=Mouse Zone : MC=Mouse Click
  33.    Until MZ>0 and MC=1
  34.    On MZ Proc LD,KLL,SV,ABT,HLP
  35.    Exit If MZ=6
  36. Loop 
  37. Proc QT
  38. Procedure LD
  39.    F$=Fsel$("*.ASC","","")
  40.    If F$<>"" Then Proc CLR1 : Proc STATUS[3] : A=Instr(F$,":") : T$=Mid$(F$,A+1,20) : T=Len(T$) : T$=Left$(T$,T-4) : Ink 11 : Bar 120,165 To 285,173 : Ink 14 : Text 120,173,T$
  41. End Proc
  42. Procedure CLR1
  43.    Ink 11 : Bar 77,210 To 285,220
  44. End Proc
  45. Procedure KLL
  46.    If F$="" Then Proc CLR1 : Proc STATUS[2] : Wait 100 : Proc CLR1 : Proc STATUS[1] : Goto KLL99
  47.    Proc CLR1 : Proc STATUS[4]
  48.    Open In 1,F$
  49.    Set Input 10,-1 : X=1
  50.    L:
  51.    Inc Q : Ink 11 : Bar 207,175 To 285,183 : Ink 6 : T$=Mid$(Str$(Q),2) : Text 207,183,T$
  52.    Ink 11 : Bar 192,185 To 285,193 : Ink 7 : T$=Mid$(Str$(NF),2) : Text 192,193,T$
  53.    If Eof(1)=-1 Then Close 1 : Goto KLL98
  54.    Line Input #1,A$
  55.    If Left$(A$,1)="'" Then Inc NF : Goto L
  56.    A=Instr(A$,": Rem") : If A<>0 Then Gosub RM1 : Goto L
  57.    A=Instr(A$,"Rem") : If A<>0 Then Gosub RM2 : Goto L
  58.    If Left$(A$,1)=" " Then Gosub SP : Goto L
  59.    NS$(X)=A$ : Inc X : Goto L
  60.    RM1:
  61.    NS$(X)=Left$(A$,A-1) : Inc NF : Inc X : Return 
  62.    RM2:
  63.    If A=1 Then Inc NF : Return 
  64.    S=1
  65.    Do 
  66.       If Mid$(A$,S,3)="Rem" Then Inc NF
  67.       Exit If Mid$(A$,S,3)="Rem"
  68.       If Mid$(A$,S,1)<>" " Then NS$(X)=A$ : Inc X : Exit 
  69.       Inc S
  70.    Loop 
  71.    Return 
  72.    SP:
  73.    S=1
  74.    Do 
  75.       If Mid$(A$,S,1)="'" Then Inc NF
  76.       Exit If Mid$(A$,S,1)="'"
  77.       If Mid$(A$,S,1)<>" " Then NS$(X)=A$ : Inc X : Exit 
  78.       Inc S
  79.    Loop 
  80.    Return 
  81.    KLL98:
  82.    Proc CLR1 : Proc STATUS[5] : Wait 100 : Proc CLR1 : Proc STATUS[1] : PC=1
  83.    KLL99:
  84.    XX=X
  85. End Proc
  86. Procedure SV
  87.    If F$="" Then Proc CLR1 : Proc STATUS[2] : Wait 100 : Proc CLR1 : Proc STATUS[1] : Goto SV99
  88.    If PC<>1 Then Proc CLR1 : Proc STATUS[6] : Wait 100 : Proc CLR1 : Proc STATUS[1] : Goto SV99
  89.    F$=Fsel$("*.ASC","","")
  90.    If F$="" Then Proc CLR1 : Proc STATUS[2] : Wait 100 : Proc CLR1 : Proc STATUS[1] : Goto SV99
  91.    Proc CLR1 : Proc STATUS[7]
  92.    Open Out 1,F$
  93.    For Z=1 To XX-1
  94.       Print #1,NS$(Z)
  95.    Next Z
  96.    Close 1
  97.    Proc CLR1 : Proc STATUS[1] : Ink 11 : Bar 120,165 To 285,173 : Bar 207,175 To 285,183 : Bar 192,185 To 285,193 : F$="" : PC=0
  98.    SV99:
  99. End Proc
  100. Procedure ABT
  101.    Unpack 11 To 2
  102.    Repeat : Until Mouse Click>0
  103.    Screen Close 2
  104. End Proc
  105. Procedure HLP
  106.    Unpack 12 To 2
  107.    Repeat : Until Mouse Click>0
  108.    Screen Close 2
  109. End Proc
  110. Procedure QT
  111.    Def Scroll 1,0,0 To 354,145,0,1
  112.    Def Scroll 2,0,146 To 354,290,0,-1
  113.    For X=1 To 145 : Scroll 1 : Scroll 2 : Next X
  114.    End 
  115. End Proc
  116. Procedure STATUS[S]
  117.    On S Goto S1,S2,S3,S4,S5,S6,S7
  118.    S1:
  119.    T$="WAITING PATIENTLY" : Goto S99
  120.    S2:
  121.    T$="NO FILE SELECTED!" : Goto S99
  122.    S3:
  123.    T$="FILE SELECTED" : Goto S99
  124.    S4:
  125.    T$="PROCESSING PROGRAM!" : Goto S99
  126.    S5:
  127.    T$="ALL REMS KILLED!" : Goto S99
  128.    S6:
  129.    T$="NOTHING CONVERTED!" : Goto S99
  130.    S7:
  131.    T$="WRITING SOURCE!" : Goto S99
  132.    S99:
  133.    Get Rom Fonts : Set Font 1
  134.    Ink 2 : T=Text Length(T$) : Text(177-T/2)+4,218,T$
  135. End Proc