home *** CD-ROM | disk | FTP | other *** search
/ Complete Bookshop / CompleteWorkshop.iso / jokes / nerd / nerd.bas next >
BASIC Source File  |  1980-01-04  |  3KB  |  76 lines
  1. 10 ' **************************************************************************
  2. 20 ' * NERD.BAS                                            Amaryllis Software *
  3. 30 ' * written by Carol Poster                                                *
  4. 40 ' * This program is hereby released in the public domain.                  *
  5. 50 ' **************************************************************************
  6. 60 ' *
  7. 70 ' * PRINT TITLE PAGE
  8. 80 ' *
  9. 90 KEY OFF
  10. 100 CLS
  11. 110 LOCATE 7,1
  12. 120 PRINT TAB(25);"N     N  EEEEE  RRRRR   DDDDD   "
  13. 130 PRINT TAB(25);"NN    N  E      R    R  D    D  "
  14. 140 PRINT TAB(25);"N N   N  E      R    R  D     D "
  15. 150 PRINT TAB(25);"N  N  N  EEEE   RRRRR   D     D "
  16. 160 PRINT TAB(25);"N   N N  E      R  R    D     D "
  17. 170 PRINT TAB(25);"N    NN  E      R   R   D    D  "
  18. 180 PRINT TAB(25);"N     N  EEEEE  R    R  DDDDD   "
  19. 190 LOCATE 23,1
  20. 200 PRINT "Released to public domain by Amaryllis Software 1987"
  21. 210 PRINT "Press ";: COLOR 0,7: PRINT "ENTER";: COLOR 7,0
  22. 220 PRINT " ("+CHR$(17)+CHR$(196)+CHR$(217);") to continue";
  23. 230 LINE INPUT T$
  24. 240 ' *
  25. 250 ' * TRAP CONTROL BREAK
  26. 260 ' *
  27. 270 DATA &H04,&H24,&H44,&H64
  28. 280 FOR I=15 TO 18
  29. 290     READ ICODE
  30. 300     KEY I,CHR$(ICODE)+CHR$(70)
  31. 310     KEY(I) ON
  32. 320     ON KEY (I) GOSUB 610
  33. 330 NEXT I
  34. 340 ' *
  35. 350 ' * MAIN LOOP -- displays dots
  36. 360 ' *
  37. 370 T$=""
  38. 380 CLS
  39. 390 FOR I=1 TO 22                                     ' loop through rows
  40. 400     FOR J=1 TO 80                                 ' column loop
  41. 410             LOCATE I,J
  42. 420             PRINT ".";
  43. 430             GOSUB 480
  44. 440     NEXT J
  45. 450 NEXT I
  46. 460 GOTO 380                                          ' infinite loop
  47. 470 END
  48. 480 ' *
  49. 490 ' * repeating message on line 24
  50. 500 ' *
  51. 510 LOCATE 23,1
  52. 520 PRINT "If you want to know how to keep a nerd amused for hours press ";
  53. 530 COLOR 0,7: PRINT "ENTER";: COLOR 7,0
  54. 540 PRINT " ("+CHR$(17)+CHR$(196)+CHR$(217);")";
  55. 550 FOR T=1 TO 200: X=1.234/1.235: NEXT T
  56. 560 LINE INPUT T$
  57. 570 LOCATE 23,1
  58. 580 PRINT STRING$(79," ");
  59. 590 IF LEN(T$)>5 THEN RETURN 340
  60. 600 RETURN
  61. 610 '*
  62. 620 '* TRAPPED CTRL-BREAK
  63. 630 '*
  64. 640 CLS
  65. 650 PRINT STRING$(79,219)
  66. 660 COLOR 15,0
  67. 670 LOCATE 2,33: PRINT "R E S U L T S"
  68. 680 COLOR 7,0
  69. 690 PRINT STRING$(79,219)
  70. 700 PRINT :PRINT
  71. 710 PRINT TAB(9);"To determine your IQ, subtract the number of dots on the screen"
  72. 720 PRINT TAB(9);"when you finally pressed CTRL-BREAK from 200. If you received a"
  73. 730 PRINT TAB(9);"negative score, type RUN [ENTER] to try again."
  74. 740 END
  75. 750 RETURN
  76.