home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / basicref.zip / TESTPROG.BAS < prev   
BASIC Source File  |  1980-01-01  |  724b  |  21 lines
  1. 10 REM SAMPLE PROGRAM FOR PROCESSING BY CROSS REFERENCE UTILITY
  2. 20 '   PROGRAM DOESN'T DO MUCH OF ANYTHING
  3. 30 DEFSTR C-G
  4. 40 DIM A(20),B(2,5),C(100)
  5. 50 ON ERROR GOTO 160
  6. 55 G$=INKEY$:IF G$=" " THEN 55 ELSE IF G$="-" THEN 55
  7. 60 FOR I=1 TO 5
  8. 70 A(I)=2*I:PRINT A(I)
  9. 80 NEXT I
  10. 90 A=12!
  11. 100 PRINT USING "A=####";A
  12. 110 IF A < 0 THEN 60 ELSE IF A=0 THEN CLOSE:END ELSE PRINT A
  13. 112 IF ERL = 90 THEN 115
  14. 115 IF 100=ERL THEN 112 ELSE IF ERL <> 60 THEN END
  15. 120 OPEN "SCRN:" FOR OUTPUT AS #1
  16. 130 OPEN "LPT1:" FOR OUTPUT AS #2
  17. 140 OPEN "KYBD:" FOR INPUT AS #3
  18. 150 CLOSE:END
  19. 160 BEEP:IF ERR=12 THEN 180 ELSE IF ERR=13 THEN 190 ELSE IF ERR=14 THEN 180 ELSE IF ERR=15 THEN 78000 ELSE PRINT #1,"ERROR= ";ERR
  20. 170 GOTO 150
  21.