home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / blipblapbleep (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  54 lines
  1. 10 rem aphorism generator
  2. 12 rem by dr. j.d. robertson
  3. 15 rem july 13,1978
  4. 17 rem *************************
  5. 20 rem blip is the blap of bleep
  6. 22 rem *************************
  7. 25 rem additions by m. wells
  8. 27 rem june1983
  9. 30 rem              a. gardner
  10. 31 rem              march 1984
  11. 32 dimx$(25),y$(25),z$(25)
  12. 35 rem x$- list of blip words
  13. 36 rem y$- list of blap words
  14. 37 rem z$- list of bleep words
  15. 40 for i=1 to 25
  16. 42 read x$(i),y$(i),z$(i)
  17. 45 nexti
  18. 48 print""
  19. 50 print"[147]";:print" generate sayings with obscure meanings
  20. 52 [153]" to counter the person that always uses  aphoristic banality such ";
  21. 54 [153]"as-'necessity  is the mother of invention.'"
  22. 55 [153]:[153]" this program will help you.  just tell  it how many you will";
  23. 57 [153]" be needing and":[153]" stand back!-":[153]:[153]
  24. 60 [153]:[153]" how many aphorisms would you like":[133]" to see";n
  25. 62 [153]"load"
  26. 65 [129] i[178]1 [164] n
  27. 70 [143] select jth blip word,kth blap word, lth bleep word
  28. 75 j[178]1[170][181]([187](1)[172]25)
  29. 80 k[178]1[170][181]([187](1)[172]25)
  30. 85 l[178]1[170][181]([187](1)[172]25)
  31. 90 [153]x$(j);" is the ";y$(k);" of ";z$(l)
  32. 95 [130]i
  33. 100 [153]:[153]"do you want to see more? (y/n);
  34. 105 geta$:ifa$=""then105
  35. 107 ifa$<>"y"thenprint"[147]":goto63000
  36. 110 print"[147]":goto60
  37. 145 rem blip-blap-bleep words
  38. 150 datasanity,anathema,love,agony,quagmire,ardor
  39. 151 datadistrust,blight,beauty,politics,harlot,hate
  40. 152 datagreed,friend,filth,gluttony,mother,evil
  41. 153 datahealth,father,excess,hysteria,sister,fantasy
  42. 154 databrevity,brother,racism,charity,enemy,laughter
  43. 155 datasecurity,bandit,naivete,science,house,apoplexy
  44. 156 datacelibacy,kidney,sadism,decency,harpy,lust
  45. 157 dataabuse,laxative,sex,weakness,follicle,leprosy
  46. 158 databravery,reward,deceit,genius,genesis,loyalty
  47. 159 datadeath,heart,suicide,alcohol,liver,success
  48. 160 dataviolence,curator,idiocy,apathy,eunuch,progress
  49. 161 data money,result,failure,garbage,apex,release
  50. 162 dataobesity,bladder,avarice
  51. 170 goto 63000
  52. 63000 print"load"chr$(34)"payload"chr$(34)",8":print"run"
  53. 63001 poke631,13:poke632,13:poke198,2
  54.