home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / tekst_grap.amos / tekst_grap.amosSourceCode < prev   
AMOS Source Code  |  1990-10-14  |  2KB  |  93 lines
  1. ' SENSOR LETTER SHOWER V1.0
  2. '
  3. '
  4. ' Made by J.Valks on 12-07-91
  5. '
  6. '
  7. Shared AANTAL,TELLER,NR,X1,Y1,X2,Y2
  8. Shared T$
  9. Screen Open 0,320,200,16,Lowres
  10. Flash Off : Curs Off 
  11. Palette $0,$0,$FFF : Cls 
  12. SCHERM_SETUP
  13. INIT_DATA
  14. LETS_DO_IT
  15. '----------------------------------- 
  16. Procedure SCHERM_SETUP
  17.    Hide : Break Off 
  18.    Curs Off : Flash Off 
  19.    Palette $0,$0,
  20.    Screen Open 1,320,250,4,Lowres
  21.    Palette $0,$0,
  22.    Curs Off : Flash Off 
  23.    Get Rom Fonts : Set Font 1
  24.    Double Buffer 
  25. End Proc
  26. Procedure TAKE_LETTER[LETTER$]
  27.    Screen 0
  28.    Locate 0,0 : Print LETTER$
  29.    Get Bob 0,1,0,0 To 9,8
  30.    Screen 1
  31. End Proc
  32. Procedure INIT_DATA
  33.    T$=T$+"Hallo, dit is weer een nieuwe vorm van^"
  34.    T$=T$+"tekst op het scherm te plaatsen.^^"
  35.    T$=T$+"Dit kleine programma heb ik in ongeveer^"
  36.    T$=T$+"5 minuten gemaakt.^"
  37.    T$=T$+"^"
  38.    T$=T$+"Druk op een toets om terug te gaan naar^"
  39.    T$=T$+"het menu...\*"
  40.    AANTAL=Len(T$)
  41.    X2=0 : Y2=0
  42. End Proc
  43. Procedure LETS_DO_IT
  44.    Do 
  45.       Inc TELLER
  46.       If TELLER>AANTAL
  47.          TELLER=1
  48.       End If 
  49.       LETTER$=Mid$(T$,TELLER,1)
  50.       If LETTER$=" "
  51.          Add X2,8
  52.          Goto VERDER
  53.       End If 
  54.       If LETTER$="^"
  55.          Add Y2,9
  56.          X2=0
  57.          Goto VERDER
  58.       End If 
  59.       If LETTER$="\"
  60.          Wait Key 
  61.          Goto VERDER
  62.       End If 
  63.       If LETTER$="*"
  64.        EINDE
  65.       End If 
  66.       TAKE_LETTER[LETTER$]
  67.       PLAATS_LETTER
  68.       VERDER:
  69.    Loop 
  70. End Proc
  71. Procedure PLAATS_LETTER
  72.    X1=325 : Y1=250
  73.    Bob 1,X1,Y1,1
  74.    Repeat 
  75.       If X1>X2
  76.          Dec X1
  77.          Dec X1
  78.       End If 
  79.       If Y1>Y2
  80.          Dec Y1
  81.          Dec Y1
  82.       End If 
  83.       Bob 1,X1,Y1,1
  84.    Until X1<=X2 and Y1<=Y2
  85.    Paste Bob X1,Y1,1
  86.    X2=X2+8
  87. End Proc
  88. Procedure EINDE
  89.  Screen Close 1
  90.  Erase 1
  91.  Dir$="AMOS_COMPACT2:"
  92.  Run "menu.amos"
  93. End Proc