home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 15 / 015.d81 / hello (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  47 lines
  1. 5 ifpeek(51201)<>12orpeek(51202)<>200orpeek(52222)<>5then7
  2. 6 goto10
  3. 7 load"routines v4",8,1
  4. 10 v=53248:s=v+1024:sys52176:poke56,160:poke57,0:print"[147]":forx=stos+24:pokex,0:next:forx=1024to1034:reada:pokex,a:next:data169,228,141,8,3,169,167,141,9,3,96:sys1024:q$="'":open8,8,8,"#":open15,8,15,"ua:8 0 18 0":print#15,"b-p:8 154":get#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$:close8:close15
  5. 15 dv=peek(186):ifdv<8thendv=8
  6. 45 ifi1$<>"\"thenpoke65533,.:poke65534,.:pokev+32,.:goto60
  7. 50 poke65533,val(n1$+n2$):poke65534,val(s$)
  8. 60 cd$="":si=usr(65534):bs$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":sp$="                                       [160]":dimix$(22,1),ix(22,1),c%(4):fori=1to4:readc%(i):next:data2,5,6,7:pokev+33,1:pokev+32,c%(si):readin$:tt$="[204][207][193][196][211][212][193][210][160][206]umber "+in$
  9. 170 print"[144]";sp$;"";tab(19-len(tt$)/2);tt$:print"":forco=1to22:forc1=.to1:readix$(co,c1),ix(co,c1):ifix$(co,.)="!"thencx=co-1:co=22:c1=3
  10. 198 next:next:print"[150]";:forco=1tocx:poke646,c%(ix(co,.)):ifsi=ix(co,.)thenprint"";
  11. 251 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146] ";:goto290
  12. 252 print"      [146]  ";
  13. 290 printchr$(co+96)"[160]= "ix$(co,.);:printspc(22-len(ix$(co,.)));:ifsi=ix(co,.)thenprint"";
  14. 300 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146][157]";:goto310
  15. 304 print"      [146]";
  16. 310 next:printleft$(cd$,25)"[144][215]hich "spc(24)"[216][146] to exit";bs$;:k$="?
  17. 330 ks$[178]k$:b$[178]"cmd":sp$(0)[178]""[170]k$[170]"wait":sp$(1)[178]"wait"[170]k$[170]"wait":[153]sp$(sp[170]1);b$;:sp[178][168]sp:[161]k$:[129]zd[178]1[164]222:[130]:[139]k$[179]" "[176]k$[177]"z"[167]k$[178]ks$:[137]330
  18. 340 [139]k$[178]"x"[167]19000
  19. 350 [139]k$[179]"a"[167]330
  20. 355 [139]k$[177][199](cx[170]64)[167]330
  21. 360 [153][199]([198](k$)[176]32);"cmd";:k[178][198](k$)[175]31:[139]k[179][178]cx[167]30000
  22. 400 [137]330
  23. 9999 [128]:[131]15,"(NULL)ixel (NULL)age",1,pixel page,,"lenontents (NULL)ap",1,contents map,,"(NULL)teinman right$nstructions",1,spreadsheet,,"(NULL)teinman (NULL)preadsheet",1,steinman spread,,"right$t's a lenontest!!",1,contest,,"(NULL)ayload (NULL)rograms",1,payload,2,"(NULL)ower(NULL)lay (NULL)rograms",1,payload,1
  24. 10000 d[178][194](186):n$[178]"hello":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  25. 12008 [131]"(NULL)aperless (NULL)ages",2,presenter,1,"right$nflux",2,presenter,2,"(NULL)ath (NULL)eflections",2,presenter,3,"(NULL)rder ascorm",2,order form,,"asceedback str$isk (NULL)aker",2,f.b maker.1,,!,,!,:[142]
  26. 19000 [153]"loadstop   (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)closeis not public domain.":[153]"   (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)closeis unprotected for your":[153][163]28);"convenience.":[153]"(NULL)e want you to be able";:[153]" to copy, modify, and learn from the";:[153]" programs on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).":[153]:[153]"(NULL)lease respect this policy:
  27. 19020 print:print"[196]o not allow unauthorized copies":printtab(29)"to be made.":print:print"([211]chools may make a copy for each [195]-64.)":print:print"[212]ype [210][213][206] then press <[210][197][212][213][210][206]> to return  to [204][207][193][196][211][212][193][210].":end
  28. 23000 poke646,c%(val(s$)):print"[147][212]he diskette currently in your drive is":ifi1$<>"\"thenprint"     not a regular [204][207][193][196][211][212][193][210] issue.":goto24000
  29. 23020 print"         side "s$" of [204][207][193][196][211][212][193][210][160]"mid$(str$(val(n1$+n2$)),2)".
  30. 24000 [151]646,c%(ix(k,.)):[153]""[163]17[171][195](ix$(k,.))[173]2);q$;ix$(k,.);q$;" is on":[153]"         side"ix(k,.)"of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) "in$".":[153]"stop        right$nsert that side, please":[153][166]19)"&":[153][166]12)"press space bar":[153]"   or press (NULL)val(NULL)(NULL)(NULL)(NULL)waitcloseto return to menu
  31. 24055 print:print"  ([201] suggest you turn the disk over.)":poke198,.:wait198,1:getk$:ifk$<>" "thengosub63002:gosub63000:run
  32. 24080 print
  33. 30000 gosub63000:gosub63002
  34. 30003 goto31000
  35. 30025 poke65535,10*val(s$)+ix(k,1):ifix$(k,1)="presenter"andpeek(597)<>0thenpoke6400,0:poke44,25:run
  36. 31000 ix$="side"+str$(ix(k,.)):open15,dv,15,"i0":close15
  37. 31005 open15,dv,15,"r0:"+ix$+"="+ix$:input#15,en:close15
  38. 31010 ifen=62thenprint"[147]":goto24000
  39. 31015 poke65535,10*ix(k,.)+ix(k,1)
  40. 31020 goto40000
  41. 40000 poke53281,.:print"[147][204]aunching "ix$(k,.);"[144]";:poke599,0:fori=0to23:pokes+i,0:next:poke198,0:poke631,13:poke632,13:ifix$(k,1)<>"presenter"thenpoke597,0:goto40030
  42. 40020 print"[144]l[207]"chr$(34)ix$(k,1)chr$(34)",8":print"run":poke6400,0:poke44,25:poke198,2:end
  43. 40030 print"load"chr$(34);ix$(k,1);chr$(34)",8":print"run":poke631,13:poke632,13:poke198,2:poke65535,10*val(s$)+ix(k,1):end
  44. 40040 poke631,13:poke632,13:poke198,2:poke65535,10*ix(k,.)+ix(k,1):end
  45. 63000 fori=.to24:pokes+i,.:next:pokes+1,100:pokes+2,100:pokes+5,10:pokes+6,2:pokes+24,15:pokes+4,33:fordl=1to600:next:poke2+4,32:return
  46. 63002 fori=0to24:pokes+i,0:next:pokes+1,40:pokes+2,40:pokes+5,10:pokes+6,2:pokes+24,15:pokes+4,33:fordl=1to600:next:pokes+4,32:return
  47.