home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -jumpman (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.5 KB  |  50 lines
  1. 5 DEFFNR(X)=1566+INT(RND(1)*8)+INT(RND(1)*8)*40
  2. 10 POKE53281,0:POKE53280,12:PRINT"[150][147][142]         J[150]UM[150]PM[150]AN [150]JU[150]NI[150]OR"
  3. 15 FORA=1TO7:READB$(A):NEXT:A$(1)="      [146]":A$(2)="  [146]    [146]"
  4. 17 FORA=1TO10:READJ$(A):NEXT
  5. 18 FORA=1TO7:READF$(A):NEXT
  6. 20 PRINT"":FORA=1TO9:PRINTTAB(30)A$(1):PRINTTAB(30)A$(2):NEXT
  7. 25 PRINT"[145]";:FORA=1TO2:PRINT"[150]                                        [146]";:NEXT
  8. 30 PRINT"":FORA=1TO9:PRINTTAB(12);J$(A):NEXT:PRINT""
  9. 35 FORA=0TO6000:NEXT
  10. 40 FORA=1TO7:PRINT"[154]":FORB=1TO7:PRINTRIGHT$(B$(B),A):NEXT
  11. 43 FORB=1TO160:NEXT:NEXT
  12. 44 B$(1)="   [167] ":B$(2)="  [206][183][183][205]"
  13. 45 FORA=1TO10:PRINT"[154]":FORB=1TO7:PRINTTAB(A)B$(B):NEXT
  14. 46 PRINT"":FORB=1TOA:PRINT"[145]";:NEXT
  15. 47 FORB=1TO10:PRINTTAB(12)J$(B):NEXT:NEXT
  16. 50 FORA=11TO23:PRINT"[154]":FORB=1TO7:PRINTTAB(A);B$(B):NEXT
  17. 55 FORB=1TO160:NEXT:NEXT
  18. 60 FORA=1TO4:FORB=2TO10STEP8:PRINT"":POKE646,B
  19. 65 FORC=1TO7:PRINTTAB(23)F$(C):NEXT:FORC=1TO150:NEXT:NEXT:NEXT
  20. 70 J$(0)=J$(10):FORA=10TO1STEP-1:PRINT"":FORB=1TOA:PRINT"[145]";:NEXT
  21. 73 FORB=1TO5:G=FNR(.):POKE54272+G,2:POKEG,42:NEXT
  22. 75 FORB=0TO9:PRINTTAB(12)J$(B):NEXT:NEXT
  23. 80 PRINT"[153]PRESS SPACEBAR TO EXIT THE DEMO!"
  24. 85 GETA$:IFA$<>" "THEN85
  25. 100 PRINT"[154][147]    ";:POKE53281,6:POKE53280,14:POKE198,0:CLR:END
  26. 1000 DATA"   [167]   "
  27. 1010 DATA"  [206][183][183][205] "
  28. 1020 DATA" [206][164][164][164][164][205]"
  29. 1030 DATA" [207][172][187][172][187][208]"
  30. 1040 DATA" [204][188][190][188][190][186]"
  31. 1050 DATA" [205][163][163][163][163][206]"
  32. 1060 DATA"  [205][175][175][206] "
  33. 1090 DATA"            [146]      "
  34. 1100 DATA"          [146]      [146]  "
  35. 1110 DATA"              [146]    "
  36. 1120 DATA"    [146]      [146]        "
  37. 1130 DATA"    [146]      [146]        "
  38. 1140 DATA"      [156]    [146]        "
  39. 1150 DATA"    [156]          [146]    "
  40. 1160 DATA"  [156]  [146]          [146]    "
  41. 1170 DATA"  [146]              [146]  "
  42. 1180 DATA"                  "
  43. 1200 DATA"  [205][194][194][206] "
  44. 1210 DATA" [205][205][205][206][206][206]"
  45. 1220 DATA"[205][205]***[206][206]"
  46. 1230 DATA"[195][205]***[206][195]"
  47. 1240 DATA"[195][206]***[205][195]"
  48. 1250 DATA"[206][206][206][206][205][205][205]"
  49. 1260 DATA" [206][206][194][205][205] "
  50.