home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LORDCON1.DSK / V.txt < prev    next >
Text File  |  2014-09-09  |  910b  |  43 lines
  1.  : IT ;
  2.  
  3. VARIABLE T1
  4. : SSFAD 24570 ;
  5. : BSFAD 24571 ;
  6. : HBAD 24569 ;
  7. : CYCAD 24568 ;
  8.  
  9.  : RPR 5382 + SWAP SUB1 6 * + PEEK ;
  10.  
  11. : C1 PRINT " FIRST " ;
  12.  : C2 PRINT " SECOND " ;
  13. : C3 PRINT " THIRD " ;
  14. : C4 PRINT " FOURTH " ;
  15. : C5 PRINT " FIFTH " ;
  16. : C6 PRINT " SIXTH " ;
  17. : C7 PRINT " SEVENTH " ;
  18. : C8 PRINT " EIGHTH " ;
  19. : C9 PRINT " NINTH " ;
  20. : C10 PRINT " TENTH " ;
  21.  
  22.  : CONT SWIN HOME 21 VTAB 12 HTAB CYCAD PEEK 10 <= IF
  23.   CYCAD PEEK CASE: IT C1 C2 C3 C4 C5 C6 C7 C8 C9 C10 THEN
  24.   PRINT "  YEAR " 10000 DELAY
  25.  ELSE PRINT " YEAR  " CYCAD PEEK . 10000 DELAY THEN 
  26.   INITC READ " RETURN,D1 " ;
  27.  
  28.  : INTCYC BSFAD PEEK N1 = IF N2 BSFAD POKE THEN
  29.   SSFAD PEEK N1 = IF N2 SSFAD POKE THEN
  30.   ZR NP ADD1 N1
  31.   DO I 5 RPR +
  32.   LOOP NT N2 / < HBAD POKE
  33.   NP ADD1 N1
  34.   DO I 24554 + PEEK
  35.   LOOP NP PICK NP ZR
  36.   DO NP PICK I 24555 + POKE DUP
  37.   LOOP CLRSTK
  38.   CYCAD PEEK ADD1 CYCAD POKE
  39.  ZR -> FILE -1 -> PHASE CONT ;
  40.  
  41. CLOSE RUN
  42.  
  43.