home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / b.bofh (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  40 lines
  1. 10 D=PEEK(186):IFD<8THEND=8
  2. 20 GOSUB41000
  3. 30 A$="BOFH"
  4. 40 PRINT"[144]LOADA$,D":PRINT"RUN"
  5. 41 PRINTTAB(08)"[212]HIS PROGRAM DOES NOT
  6. 42 [153][163]09)"RETURN TO E(null)(null)ATNSTR$(null)(null)ATN(null).
  7. 43 PRINT:PRINTTAB(10)"[208]RESS <[209]> TO [209]UIT
  8. 44 [153][163]06)"ATNNY OTHER KEY TO CONTINUESTOP";
  9. 50 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"Q"[167]40000
  10. 60 [153][163]16)"(null)(null)ATNSTR$RIGHT$(null)CHR$STOP"
  11. 70 [151]198,2:[151]631,13:[151]632,13:[128]
  12. 10000 D[178][194](186):N$[178]"B.BOFH":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
  13. 40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
  14. 40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
  15. 40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
  16. 40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
  17. 40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
  18. 40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
  19. 40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
  20. 40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
  21. 40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
  22. 40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
  23. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
  24. 41002 [151]214,14:[153]
  25. 41004 [153][163]1)"LIST                                     "
  26. 41005 [129]X[178]1[164]6
  27. 41006 [153][163]1)"PRINT#                                     "
  28. 41007 [130]
  29. 41013 [153][163]1)"POKE                                     "
  30. 41020 [129]X[178]1[164]4:[135]A$:[151]214,15[170]X:[153]
  31. 41022 [153][163]19[171][195](A$)[173]2)"PRINT#"A$
  32. 41024 [130]
  33. 41030 T[178]TI[170]60
  34. 41031 [139]T[177]TI[167]41031
  35. 41032 [153]"":[142]
  36. 41050 [131]"PEEK (null)CLOSEASC LEFT$
  37. 41051 DATA"BY [204]ASSE [207]ONRI
  38. 41052 [131]"(C) 2002 VALLECTRIC LEFT$AREM
  39. 41053 DATA"WWW.LOADSTAR.COM
  40.