home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side2.d64 / snap (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  2KB  |  46 lines
  1. 0 poke 44,8
  2. 1 gosub6000
  3. 4 goto 1503
  4. 5 poke53281,1:print"[154]"
  5. 9 print"[147]"
  6. 10 poke44,22:poke642,22:poke5632,0:printchr$(142)
  7. 11 gosub1505:ifpk=51thenyp=4:xp=13:gosub9100:print"reconnecting..."
  8. 12 ifpk=50thenyp=4:xp=9:gosub9100:print"loading training camp"
  9. 13 ifpk=49thenyp=4:xp=9:gosub9100:print"loading snigglefritz"
  10. 15 if pk=51then60000
  11. 20 load "sniggle setup",8
  12. 22 end
  13. 1503 print"[147]";chr$(14):poke53281,1:goto1514
  14. 1505 yp=1:xp=7:gosub9100:print"                         "
  15. 1506 yp=2:xp=0:gosub9100:forz=1to6:printtab(7)"                         [144] ":next
  16. 1512 yp=8:xp=8:gosub9100:print"[144]                         ":return
  17. 1514 gosub1505:yp=3:xp=12:gosub9100:print"(1) [211]nigglefritz"
  18. 1515 yp=4:gosub9100:print"(2) [212]raining [195]amp"
  19. 1516 yp=5:gosub9100:print"(3) [204]oadstar":yp=6:gosub 9100:print"(4) [194]asic
  20. 1519 yp[178]10:xp[178]14:[141]9100:[153]"lenhoose (NULL)ne > wait":[141]61000
  21. 1520 [158]700:pk[178][194](251)
  22. 1521 [139]pk[177]48[175]pk[179]52[167][151]250,pk[171]48:[137]5
  23. 1522 [139] pk[178]52[167][153]"load":[128]
  24. 1523 [137]1520
  25. 6000 [129]j[178]700[164] 720:[135]a:[151]j,a:[130]j
  26. 6005 [131] 32,228,255,240,3,133,251,96,238,32,208,162
  27. 6006 [131] 90,202,208,253,141,18,208,240,235
  28. 9100 [151]781,yp:[151]782,xp:[151]783,0:[158]65520:[142]
  29. 60000 [159]15,8,15,"r0:magic ii=magic ii":[132]15,er:[160]15
  30. 60010 [139] er[179][177]63 [167] [153]"load":[128]
  31. 60020 a$[178]"sniggle reconnect":q$[178][199](34):[151]53281,7:[151]53280,7:[153]"load"
  32. 60030 [153]"sysload"q$a$q$",8":[151]2048,0:[151]2047,0:[151]2049,0
  33. 60040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  34. 61000 [151]214,11:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  35. 61130 [129]i[178]1[164]3:[153]"                                      ":[130]
  36. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #58     "
  37. 61160 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  38. 61170 [153]"     lenleft$atn(NULL)chr$right$(NULL)chr$close(NULL)left$right$(NULL)close(NULL)(NULL)(NULL)right$lenvalcloseright$(NULL)closeright$(NULL)(NULL)valchr$atn(NULL)  "
  39. 61180 [129]i[178]1[164]4:[153]"                                      ":[130]
  40. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  41. 61200 au$[178]"(NULL)(NULL)right$chr$chr$(NULL)valasc(NULL)right$(NULL)(NULL)":[151]214,13:[153]:[153][166]20[171][195](au$)[173]2)"print#"au$
  42. 61210 au$[178]"peeky mid$ohn (NULL)clenaffrey  (len) 1989":[151]214,14:[153]
  43. 61220 [153][166]20[171][195](au$)[173]2)"print#"au$""
  44. 61230 [153] "   (NULL)(NULL)right$chr$chr$(NULL)valasc(NULL)right$(NULL)(NULL)closeright$(NULL)close(NULL)(NULL)(NULL)closelen(NULL)(NULL)(NULL)atn(NULL)right$peek(NULL)val"
  45. 61240 [153] "    (NULL)right$(NULL)left$ atn(NULL)(NULL)closeascatn(NULL)(NULL)close(NULL)(NULL)atnstr$closelenatn(NULL)(NULL)(NULL)right$str$chr$val(NULL).":[142]
  46.