home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -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.