home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / fasm / evfu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.2 KB  |  49 lines
  1. 5  CLS
  2. 10  ' SAMPLE VFU PROGRAM
  3. 20  NCH=6
  4. 30  MAXLEN=66
  5. 40  DIM VST(NCH,MAXLEN)
  6. 50  SET$=CHR$(29)
  7. 60  HLT$=CHR$(30)
  8. 70  PRINT "SET VFU FOR OPERATION:":PRINT
  9. 80  PRINT "   6 FORMS CAN BE PROGRAMMED":PRINT
  10. 90  PRINT "   FORM 0 MAY HAVE ONLY THE NORMAL STOP AT THE TOP":PRINT
  11. 95  INPUT "WHAT IS THE LENGTH IN LINES";FML: IF FML<2 GOTO 70
  12. 100  GOSUB 1000: INPUT "SELECT CHANNEL TO CHANGE (1-5) OR 0 TO QUIT";CH
  13. 110  IF CH=0  THEN 150
  14. 120  INPUT "LINE TO CHANGE";L: IF L<1 OR L>FML-1 THEN PRINT "ERR";GOTO 100
  15. 130  VST(CH,L)=VST(CH,L)+1: IF VST(CH,L)>1 THEN VST(CH,L)=0
  16. 140  GOTO 100
  17. 150  GOSUB 1000: PRINT "PROGRAMMING EVFU":PRINT
  18. 160  LPRINT SET$;"A";
  19. 170  FOR I=1 TO FML-1
  20. 180  SVAL=64
  21. 190  PRINT "LINE";I;":";
  22. 200  FOR J=1 TO 5
  23. 210  A$="0" :IF VST(J,I)>0 THEN SVAL=SVAL+2^J: A$="1"
  24. 220  PRINT A$;
  25. 230  NEXT J:
  26. 240  LPRINT CHR$(SVAL);
  27. 250  PRINT " ";CHR$(SVAL);
  28. 260  NEXT I:
  29. 270  LPRINT "A";
  30. 280  LPRINT HLT$;
  31. 290  PRINT "VFU LOADED"
  32. 300  INPUT "CHANNEL NUMBER";CH
  33. 310  IF CH>5 OR CH<0 THEN 300
  34. 320  IF CH=0 THEN LPRINT CHR$(12);: GOTO 350
  35. 330  IF CH=1 THEN LPRINT CHR$(11);: GOTO 350
  36. 340  LPRINT CHR$(31);CHR$(CH);
  37. 350  LPRINT "CHANNEL STOP IS HERE"
  38. 360  GOTO 300
  39. 370  END
  40. 1000  REM
  41. 1010  PRINT "CHANNEL: LINE STOPS:"
  42. 1020  PRINT "        ";: FOR I=0 TO FML-1:PRINT MID$(STR$(I),LEN(STR$(I))-1,1)
  43. 1030  NEXT:PRINT
  44. 1040  PRINT "        ";:FOR I=0 TO FML-1: PRINT RIGHT$(STR$(I),1);:NEXT:PRINT
  45. 1050  FOR CH=0 TO 5:CH$=STR$(CH) :CH$=LEFT$("       ",9-LEN(CH$))+CH$
  46. 1060  PRINT CH$;:FOR I=0 TO FML-1: A$=" ":IF VST(CH,I) > 0 THEN A$="X"
  47. 1070  PRINT A$;: NEXT I
  48. 1080  PRINT :NEXT CH:PRINT:PRINT:RETURN
  49.