home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / RAFFLE! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  54 lines
  1. 10 REM"  ***  [210]AFFLE  ***
  2. 20 [143]
  3. 30 [143]" WRITTEN BY PEEKOB (null)ARKER
  4. 40 REM" FOR [195]AL [208]OLY [195]OMMODORE
  5. 50 [143]"     (null)SERS CHR$ROUP
  6. 60 REM
  7. 100 DIM NM$(100),MS$(100)
  8. 105 READ D$:REM  LAST MEMBERSHIP LIST UPDATE
  9. 110 POKE53280,15:POKE53281,15:PRINT"[147][152]"CHR$(14)CHR$(8)
  10. 120 PRINT"   [212]HE [196]IAMOND [194]AR [195][194][205] [213]SERS [199]ROUP"
  11. 130 PRINT"    [205]EMBERSHIP AS OF : ";D$
  12. 140 PRINTSPC(10)"[210]AFFLE [212]IME !"
  13. 160 I=0
  14. 170 READNM$(I),MS$(I):REM NAME,MEMBER STATUS
  15. 180 IFNM$(I)="END"THENM=I-1:GOTO200
  16. 190 I=I+1:GOTO170
  17. 200 PRINT"[152]"
  18. 210 X=X+1:IFINT(X/2)=X/2THENPRINT"[145]     [200]IT [ F7 ][146] TO START [210]AFFLE.":GOTO230
  19. 220 PRINT"[145]     [200]IT [ F7 ] TO START [210]AFFLE."
  20. 230 GETA$:IFA$<>"[136]"THEN210
  21. 240 RD=INT(RND(0)*M):IFMS$(RD)<>"PAID"THEN240
  22. 250 POKE53280,6:POKE53281,1
  23. 260 PRINT"[147][156]  [212]HE [215]INNER IS....."
  24. 270 GOSUB 500 :REM SOUND
  25. 280 PRINT"[144]     ";NM$(RD)
  26. 290 PRINT" [208]RESS [ F7 ][146] TO PICK ANOTHER."
  27. 300 PRINT" [208]RESS [ F1 ][146] TO END"
  28. 310 GETA$:IFA$="[136]"THENMS$(RD)="ABSENT":GOTO240
  29. 320 IFA$="[133]"THEN360
  30. 330 POKE54276,17:POKE54273,INT(RND(0)*255):GOTO310
  31. 350 GOSUB500
  32. 360 POKE53281,15:POKE53280,15:PRINT"[152]"
  33. 370 GOSUB500:END
  34. 500 POKE54296,15:POKE54272,20:POKE54273,20:POKE54277,15:POKE54278,36
  35. 501 REM DRUMROLL
  36. 505 POKE54276,33
  37. 510 FORY=0TO255:POKE54273,Y:NEXTY
  38. 520 POKE54273,10:FORY=1TO90:NEXT
  39. 530 POKE54276,32
  40. 600 RETURN
  41. 989 :
  42. 990 REM DATA"NAME",MEMBERSHIP STATUS
  43. 995 REM MEMB. STATUS IS PAID OR LATE
  44. 996 :    
  45. 33539 "12-12-85"
  46. 1000 DATA"[205]EMBER [207]NE",PAID
  47. 1002 DATA"[205]EMBER [212]WO",PAID
  48. 1004 DATA"[205]EMBER [212]HREE",LATE
  49. 1006 DATA"[205]EMBER [198]OUR",LATE
  50. 1008 DATA"[205]EMBER [198]IVE",PAID
  51. 1010 DATA"[205]EMBER [211]IX",PAID
  52. 10000 DATA DUMMY,A:REM DO NOT CHANGE
  53. 10001 DATA END,END:REM  LAST 2 LINES
  54.