/ CP/M / CPM_CDROM.iso / beehive / program / apple.arc / APPLEBAS.MWB

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 08 0a 06 00 01 37 07 0e | 48 00 00 00 01 00 50 0f |.....7..|H.....P.|
|00000010| 00 09 35 0f 00 04 00 08 | 48 0f 00 00 b6 7e 3e 46 |..5.....|H....~>F|
|00000020| 20 3e 34 08 01 00 00 fd | 08 38 0c 00 00 7e 0a a4 | >4.....|.8...~..|
|00000030| 01 e3 0c 00 00 00 08 04 | 01 00 00 00 00 e6 00 c9 |........|........|
|00000040| 00 0a 18 20 e1 4d 20 22 | 61 70 70 6c 65 62 61 73 |... .M "|applebas|
|00000050| 2e 73 75 62 22 34 30 39 | 36 0d 00 14 08 20 b7 3a |.sub"409|6.... .:|
|00000060| e6 20 36 0d 00 1e 14 20 | 9f 20 34 31 30 31 2c 32 |. 6.... |. 4101,2|
|00000070| 3a 9f 20 34 31 30 32 2c | 30 0d 00 28 24 20 b7 3a |:. 4102,|0..($ .:|
|00000080| 83 20 22 57 61 69 74 20 | 66 6f 72 20 53 74 61 72 |. "Wait |for Star|
|00000090| 74 20 6f 66 20 70 72 6f | 67 72 61 6d 6d 65 22 0d |t of pro|gramme".|
|000000a0| 00 32 1c 20 83 20 5c 22 | 74 68 65 6e 20 70 72 65 |.2. . \"|then pre|
|000000b0| 73 73 20 61 6e 79 20 6b | 65 79 2e 22 de 0d 00 3c |ss any k|ey."...<|
|000000c0| 0e 20 84 20 de 3d 22 22 | 20 89 20 36 30 0d 00 46 |. . .=""| . 60..F|
|000000d0| 21 20 83 20 5c 22 4c 4f | 41 44 49 4e 47 21 07 22 |! . \"LO|ADING!."|
|000000e0| 5c 5c 22 50 6c 65 61 73 | 65 20 57 61 69 74 2e 22 |\\"Pleas|e Wait."|
|000000f0| 0d 00 50 0a 20 bf 28 34 | 30 39 36 29 0d 00 5a 15 |..P. .(4|096)..Z.|
|00000100| 20 9f 20 38 31 39 32 2c | be 28 38 31 39 32 29 2d | . 8192,|.(8192)-|
|00000110| 31 32 38 0d 00 64 16 20 | 4c 3d be 28 38 31 39 32 |128..d. |L=.(8192|
|00000120| 29 3a 4d 3d be 28 38 31 | 39 33 29 0d 00 6e 17 20 |):M=.(81|93)..n. |
|00000130| 83 20 5c 22 4c 65 6e 67 | 74 68 20 7c 22 4c 2b 32 |. \"Leng|th |"L+2|
|00000140| 35 36 2a 4d 0d 00 78 14 | 20 9f 20 34 31 30 31 2c |56*M..x.| . 4101,|
|00000150| 4c 3a 9f 20 34 31 30 32 | 2c 4d 0d 00 82 08 20 db |L:. 4102|,M.... .|
|00000160| 20 30 2c 33 0d 00 8c 0a | 20 bf 28 34 30 39 36 29 | 0,3....| .(4096)|
|00000170| 0d 00 96 30 20 b7 3a 83 | 20 22 07 50 6c 65 61 73 |...0 .:.| ".Pleas|
|00000180| 65 20 67 69 76 65 20 61 | 20 6e 61 6d 65 20 66 6f |e give a| name fo|
|00000190| 72 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 6d 65 |r this p|rogramme|
|000001a0| 2e 22 0d 00 a0 2e 20 96 | 20 22 55 70 20 74 6f 20 |.".... .| "Up to |
|000001b0| 38 20 63 68 61 72 61 63 | 74 65 72 73 20 7c 22 20 |8 charac|ters |" |
|000001c0| 41 31 24 3a 41 31 24 3d | 41 31 24 2b 22 2e 74 78 |A1$:A1$=|A1$+".tx|
|000001d0| 74 22 0d 00 aa 15 20 9f | 20 38 31 39 32 2c be 28 |t".... .| 8192,.(|
|000001e0| 38 31 39 32 29 2d 31 32 | 38 0d 00 b4 1d 20 b7 3a |8192)-12|8.... .:|
|000001f0| 41 3d 38 31 39 31 3a a0 | 23 36 20 8f 3a e5 20 22 |A=8191:.|#6 .:. "|
|00000200| 6f 22 2c 36 2c 41 31 24 | 0d 00 be 22 20 5a 3d be |o",6,A1$|..." Z=.|
|00000210| 28 41 2b 31 29 2b 32 35 | 36 2a be 28 41 2b 32 29 |(A+1)+25|6*.(A+2)|
|00000220| 3a 84 20 5a 3d 30 20 89 | 20 32 38 30 0d 00 c8 42 |:. Z=0 .| 280...B|
|00000230| 20 41 3d 41 2b 33 3a 41 | 31 24 3d dd 28 cd 28 be | A=A+3:A|1$=.(.(.|
|00000240| 28 41 29 29 2b 32 35 36 | 2a cd 28 be 28 41 2b 31 |(A))+256|*.(.(A+1|
|00000250| 29 29 29 3a 41 3d 41 2b | 31 3a 83 20 41 31 24 28 |))):A=A+|1:. A1$(|
|00000260| 3b 31 2c c0 28 41 31 24 | 29 2d 31 29 22 20 22 3b |;1,.(A1$|)-1)" ";|
|00000270| 0d 00 d2 1b 20 41 3d 41 | 2b 31 3a 84 20 41 3d 5a |.... A=A|+1:. A=Z|
|00000280| 2b 36 31 34 32 3a 83 3a | 8d 20 31 39 30 0d 00 dc |+6142:.:|. 190...|
|00000290| 20 20 43 3d be 28 41 29 | 3a 84 20 43 3d 38 3a 43 |  C=.(A)|:. C=8:C|
|000002a0| 3d 30 20 88 20 84 20 43 | 3d 31 33 3a 43 3d 31 0d |=0 . . C|=13:C=1.|
|000002b0| 00 e6 19 20 84 20 43 3c | 31 32 38 20 3a 83 20 df |... . C<|128 :. .|
|000002c0| 28 43 29 3b 3a 8d 20 32 | 31 30 0d 00 f0 18 20 84 |(C);:. 2|10.... .|
|000002d0| 20 43 3e 32 33 34 3a 43 | 3d 43 2d 31 32 38 3a 8d | C>234:C|=C-128:.|
|000002e0| 20 32 33 30 0d 00 fa 20 | 20 98 20 33 30 30 3a 8a | 230... | . 300:.|
|000002f0| 20 49 3d 30 20 99 20 43 | 2d 31 32 38 3a 93 20 41 | I=0 . C|-128:. A|
|00000300| 30 24 3a 8b 20 49 0d 01 | 04 0f 20 83 20 22 20 22 |0$:. I..|.. . " "|
|00000310| 41 30 24 22 20 22 3b 0d | 01 0e 08 20 8d 20 32 31 |A0$" ";.|... . 21|
|00000320| 30 0d 01 18 13 20 83 20 | 22 69 6e 23 30 3a 63 6c |0.... . |"in#0:cl|
|00000330| 6f 73 65 20 36 22 0d 01 | 22 08 20 e6 20 36 3a 91 |ose 6"..|". . 6:.|
|00000340| 0d 01 2c 57 20 94 20 22 | 45 4e 44 22 2c 22 46 4f |..,W . "|END","FO|
|00000350| 52 22 2c 22 4e 45 58 54 | 22 2c 22 44 41 54 41 22 |R","NEXT|","DATA"|
|00000360| 2c 22 49 4e 50 55 54 22 | 2c 22 44 45 4c 45 54 45 |,"INPUT"|,"DELETE|
|00000370| 22 2c 22 44 49 4d 22 2c | 22 52 45 41 44 22 2c 22 |","DIM",|"READ","|
|00000380| 4c 4f 52 45 53 22 2c 22 | 54 45 58 54 22 2c 22 50 |LORES","|TEXT","P|
|00000390| 52 23 22 2c 22 49 4e 23 | 22 0d 01 36 47 20 94 20 |R#","IN#|"..6G . |
|000003a0| 22 43 41 4c 4c 22 2c 22 | 53 45 54 22 2c 22 48 4c |"CALL","|SET","HL|
|000003b0| 49 4e 22 2c 22 56 4c 49 | 4e 22 2c 22 48 49 52 45 |IN","VLI|N","HIRE|
|000003c0| 53 32 22 2c 22 48 49 52 | 45 53 22 2c 22 43 4f 4c |S2","HIR|ES","COL|
|000003d0| 4f 52 20 22 2c 22 50 4c | 4f 54 22 2c 22 44 52 41 |OR ","PL|OT","DRA|
|000003e0| 57 22 0d 01 40 4c 20 94 | 20 22 58 44 52 41 57 22 |W"..@L .| "XDRAW"|
|000003f0| 2c 22 50 4f 4b 45 20 32 | 31 32 2c 22 2c 22 43 4c |,"POKE 2|12,","CL|
|00000400| 53 22 2c 22 52 4f 54 3d | 22 2c 22 53 43 41 4c 45 |S","ROT=|","SCALE|
|00000410| 3d 22 2c 22 53 48 4c 4f | 41 44 22 2c 22 54 52 41 |=","SHLO|AD","TRA|
|00000420| 43 45 4f 4e 22 2c 22 54 | 52 41 43 45 4f 46 46 22 |CEON","T|RACEOFF"|
|00000430| 0d 01 4a 47 20 94 20 22 | 4e 4f 52 4d 41 4c 22 2c |..JG . "|NORMAL",|
|00000440| 22 49 4e 56 45 52 53 45 | 22 2c 22 55 4e 44 45 52 |"INVERSE|","UNDER|
|00000450| 4c 49 4e 45 22 2c 22 43 | 4f 4c 4f 52 20 22 2c 22 |LINE","C|OLOR ","|
|00000460| 50 4f 50 22 2c 22 50 4f | 4b 45 20 32 31 33 2c 22 |POP","PO|KE 213,"|
|00000470| 2c 22 48 49 4d 45 4d 3a | 22 0d 01 54 4a 20 94 20 |,"HIMEM:|"..TJ . |
|00000480| 22 4c 4f 4d 45 4d 3a 22 | 2c 22 4f 4e 45 52 52 4f |"LOMEM:"|,"ONERRO|
|00000490| 52 22 2c 22 52 45 53 55 | 4d 45 22 2c 22 52 45 43 |R","RESU|ME","REC|
|000004a0| 41 4c 4c 22 2c 22 53 54 | 4f 52 45 22 2c 22 53 50 |ALL","ST|ORE","SP|
|000004b0| 45 45 44 32 35 35 2d 22 | 2c 22 4c 45 54 22 2c 22 |EED255-"|,"LET","|
|000004c0| 47 4f 54 4f 22 0d 01 5e | 40 20 94 20 22 52 55 4e |GOTO"..^|@ . "RUN|
|000004d0| 22 2c 22 49 46 22 2c 22 | 52 45 53 54 4f 52 45 22 |","IF","|RESTORE"|
|000004e0| 2c 22 26 22 2c 22 47 4f | 53 55 42 22 2c 22 52 45 |,"&","GO|SUB","RE|
|000004f0| 54 55 52 4e 22 2c 22 52 | 45 4d 22 2c 22 53 54 4f |TURN","R|EM","STO|
|00000500| 50 22 2c 22 4f 4e 22 0d | 01 68 3c 20 94 20 22 57 |P","ON".|.h< . "W|
|00000510| 41 49 54 22 2c 22 4c 4f | 41 44 22 2c 22 53 41 56 |AIT","LO|AD","SAV|
|00000520| 45 22 2c 22 44 45 46 22 | 2c 22 50 4f 4b 45 22 2c |E","DEF"|,"POKE",|
|00000530| 22 50 52 49 4e 54 22 2c | 22 43 4f 4e 54 22 2c 22 |"PRINT",|"CONT","|
|00000540| 4c 49 53 54 22 0d 01 72 | 3c 20 94 20 22 43 4c 45 |LIST"..r|< . "CLE|
|00000550| 41 52 22 2c 22 47 45 54 | 22 2c 22 4e 45 57 22 2c |AR","GET|","NEW",|
|00000560| 22 54 41 42 28 22 2c 22 | 54 4f 22 2c 22 46 4e 22 |"TAB(","|TO","FN"|
|00000570| 2c 22 53 50 43 28 22 2c | 22 54 48 45 4e 22 2c 22 |,"SPC(",|"THEN","|
|00000580| 41 54 22 0d 01 7c 3c 20 | 94 20 22 4e 4f 54 22 2c |AT"..|< |. "NOT",|
|00000590| 22 53 54 45 50 22 2c 22 | 2b 22 2c 22 2d 22 2c 22 |"STEP","|+","-","|
|000005a0| 2a 22 2c 22 2f 22 2c 22 | 5e 22 2c 22 41 4e 44 22 |*","/","|^","AND"|
|000005b0| 2c 22 4f 52 22 2c 22 3e | 22 2c 22 3d 22 2c 22 3c |,"OR",">|","=","<|
|000005c0| 22 0d 01 86 3d 20 94 20 | 22 53 47 4e 22 2c 22 49 |"...= . |"SGN","I|
|000005d0| 4e 54 22 2c 22 41 42 53 | 22 2c 22 55 53 52 22 2c |NT","ABS|","USR",|
|000005e0| 22 46 52 45 22 2c 22 50 | 4f 49 4e 54 28 22 2c 22 |"FRE","P|OINT(","|
|000005f0| 50 44 4c 22 2c 22 50 4f | 53 22 2c 22 53 51 52 22 |PDL","PO|S","SQR"|
|00000600| 0d 01 90 3b 20 94 20 22 | 52 4e 44 22 2c 22 4c 4f |...; . "|RND","LO|
|00000610| 47 22 2c 22 45 58 50 22 | 2c 22 43 4f 53 22 2c 22 |G","EXP"|,"COS","|
|00000620| 53 49 4e 22 2c 22 54 41 | 4e 22 2c 22 41 54 4e 22 |SIN","TA|N","ATN"|
|00000630| 2c 22 50 45 45 4b 22 2c | 22 4c 45 4e 22 0d 01 9a |,"PEEK",|"LEN"...|
|00000640| 34 20 94 20 22 53 54 52 | 22 2c 22 56 41 4c 22 2c |4 . "STR|","VAL",|
|00000650| 22 41 53 43 22 2c 22 43 | 48 52 22 2c 22 4c 45 46 |"ASC","C|HR","LEF|
|00000660| 54 24 22 2c 22 52 49 47 | 48 54 24 22 2c 22 4d 49 |T$","RIG|HT$","MI|
|00000670| 44 24 22 0d ff ff 00 7e | ee 04 00 0f 20 93 08 35 |D$"....~|.... ..5|
+--------+-------------------------+-------------------------+--------+--------+