/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / mags / pdmag / !PD / Lib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 52 dd f2 73 70 | 72 69 74 65 28 73 70 72 |...R..sp|rite(spr|
|00000010| 69 74 65 24 2c 73 58 25 | 2c 73 59 25 29 3a c8 99 |ite$,sX%|,sY%):..|
|00000020| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 | "OS_Spr|iteOp",&|
|00000030| 31 33 34 2c 73 70 72 69 | 74 65 5f 61 72 65 61 25 |134,spri|te_area%|
|00000040| 2c 73 70 72 69 74 65 24 | 2c 73 58 25 2c 73 59 25 |,sprite$|,sX%,sY%|
|00000050| 3a e1 0d 00 14 55 dd f2 | 73 70 72 69 74 65 4d 28 |:....U..|spriteM(|
|00000060| 73 70 72 69 74 65 24 2c | 73 58 25 2c 73 59 25 29 |sprite$,|sX%,sY%)|
|00000070| 3a c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |:.. "OS_|SpriteOp|
|00000080| 22 2c 26 31 33 34 2c 73 | 70 72 69 74 65 5f 61 72 |",&134,s|prite_ar|
|00000090| 65 61 25 2c 73 70 72 69 | 74 65 24 2c 73 58 25 2c |ea%,spri|te$,sX%,|
|000000a0| 73 59 25 2c 38 3a e1 0d | 00 1e 04 0d 00 28 0e dd |sY%,8:..|.....(..|
|000000b0| f2 74 28 59 25 2c 54 24 | 29 0d 00 32 0f ec 20 33 |.t(Y%,T$|)..2.. 3|
|000000c0| 30 2c 59 25 3a f1 54 24 | 0d 00 3c 05 e1 0d 00 46 |0,Y%:.T$|..<....F|
|000000d0| 04 0d 00 50 0e dd f2 54 | 28 59 25 2c 54 24 29 0d |...P...T|(Y%,T$).|
|000000e0| 00 5a 32 e7 20 46 4f 4e | 54 20 8c 20 f2 70 73 6a |.Z2. FON|T . .psj|
|000000f0| 75 73 74 69 66 79 28 35 | 30 2c 59 25 2d 31 30 2c |ustify(5|0,Y%-10,|
|00000100| 54 24 29 20 8b 20 ec 20 | 35 30 2c 59 25 3a f1 54 |T$) . . |50,Y%:.T|
|00000110| 24 0d 00 64 05 e1 0d 00 | 6e 04 0d 00 78 15 dd f2 |$..d....|n...x...|
|00000120| 54 54 28 58 25 2c 59 25 | 2c 54 24 2c 53 25 29 0d |TT(X%,Y%|,T$,S%).|
|00000130| 00 82 3b e7 20 46 4f 4e | 54 20 8c 20 f2 70 73 6a |..;. FON|T . .psj|
|00000140| 75 73 74 69 66 79 28 58 | 25 2c 59 25 2d 32 35 2c |ustify(X|%,Y%-25,|
|00000150| 54 24 29 20 8b 20 ec 20 | 35 30 2c 59 25 3a f1 c4 |T$) . . |50,Y%:..|
|00000160| 53 25 2c 22 20 22 29 2b | 54 24 0d 00 8c 05 e1 0d |S%," ")+|T$......|
|00000170| 00 96 04 0d 00 a0 09 dd | a4 47 45 54 0d 00 aa 0a |........|.GET....|
|00000180| ea 20 52 24 2c 52 0d 00 | b4 05 f5 0d 00 be 18 52 |. R$,R..|.......R|
|00000190| 3d 9a 23 41 3a e7 20 c5 | 23 41 20 8c 20 3d 22 45 |=.#A:. .|#A . ="E|
|000001a0| 4f 46 22 0d 00 c8 1e e7 | 20 52 3c 3e 31 30 20 80 |OF".....| R<>10 .|
|000001b0| 20 52 3c 3e 31 33 20 8c | 20 52 24 3d 52 24 2b bd | R<>13 .| R$=R$+.|
|000001c0| 52 0d 00 d2 11 fd 20 52 | 3d 31 30 20 84 20 52 3d |R..... R|=10 . R=|
|000001d0| 31 33 0d 00 dc 07 3d 52 | 24 0d 00 e6 04 0d 00 f0 |13....=R|$.......|
|000001e0| 1e dd f2 72 65 61 64 28 | 46 49 4c 45 24 2c 53 50 |...read(|FILE$,SP|
|000001f0| 41 52 54 45 2c 53 45 49 | 54 45 29 0d 00 fa 0c ea |ARTE,SEI|TE).....|
|00000200| 20 58 24 2c 49 2c 58 0d | 01 04 07 50 3d 30 0d 01 | X$,I,X.|...P=0..|
|00000210| 0e 24 41 3d 8e 28 22 3c | 50 44 4d 61 67 24 44 69 |.$A=.("<|PDMag$Di|
|00000220| 72 3e 2e 49 6e 68 61 6c | 74 2e 22 2b 46 49 4c 45 |r>.Inhal|t."+FILE|
|00000230| 24 29 0d 01 18 1e e7 20 | 53 50 41 52 54 45 3d 31 |$)..... |SPARTE=1|
|00000240| 20 8c 20 4d 41 58 53 50 | 3d bb 28 a4 47 45 54 29 | . MAXSP|=.(.GET)|
|00000250| 0d 01 22 0f 54 49 54 45 | 4c 24 3d a4 47 45 54 0d |..".TITE|L$=.GET.|
|00000260| 01 2c 2d 50 49 43 54 24 | 3d a4 47 45 54 3a e7 20 |.,-PICT$|=.GET:. |
|00000270| 50 49 43 54 24 3d 22 40 | 22 20 8c 20 50 49 43 54 |PICT$="@|" . PICT|
|00000280| 3d 30 20 8b 20 50 49 43 | 54 3d 2d 31 0d 01 36 29 |=0 . PIC|T=-1..6)|
|00000290| 50 52 47 24 3d a4 47 45 | 54 3a e7 20 50 52 47 24 |PRG$=.GE|T:. PRG$|
|000002a0| 3d 22 40 22 20 8c 20 50 | 52 47 3d 30 20 8b 20 50 |="@" . P|RG=0 . P|
|000002b0| 52 47 3d 2d 31 0d 01 40 | 3d e7 20 50 49 43 54 20 |RG=-1..@|=. PICT |
|000002c0| 8c 20 f2 73 70 72 69 74 | 65 28 22 70 73 70 65 63 |. .sprit|e("pspec|
|000002d0| 69 61 6c 22 2c 30 2c 30 | 29 20 8b 20 f2 73 70 72 |ial",0,0|) . .spr|
|000002e0| 69 74 65 28 22 73 70 65 | 63 69 61 6c 22 2c 30 2c |ite("spe|cial",0,|
|000002f0| 30 29 0d 01 4a 40 e7 20 | 50 52 47 20 8c 20 f2 73 |0)..J@. |PRG . .s|
|00000300| 70 72 69 74 65 28 22 70 | 73 70 65 63 69 61 6c 32 |prite("p|special2|
|00000310| 22 2c 30 2c 34 30 29 20 | 8b 20 f2 73 70 72 69 74 |",0,40) |. .sprit|
|00000320| 65 28 22 73 70 65 63 69 | 61 6c 32 22 2c 30 2c 34 |e("speci|al2",0,4|
|00000330| 30 29 0d 01 54 04 0d 01 | 5e 1b e3 20 58 3d 30 20 |0)..T...|^.. X=0 |
|00000340| b8 20 33 30 30 30 3a 54 | 24 28 58 29 3d 22 22 3a |. 3000:T|$(X)="":|
|00000350| ed 0d 01 68 07 49 3d 30 | 0d 01 72 05 f5 0d 01 7c |...h.I=0|..r....||
|00000360| 0e 54 24 28 49 29 3d a4 | 47 45 54 0d 01 86 09 49 |.T$(I)=.|GET....I|
|00000370| 3d 49 2b 31 0d 01 90 13 | fd 20 54 24 28 49 2d 31 |=I+1....|. T$(I-1|
|00000380| 29 3d 22 45 4f 46 22 0d | 01 9a 0e 54 24 28 49 2d |)="EOF".|...T$(I-|
|00000390| 31 29 3d 22 22 0d 01 a4 | 0c 4d 41 58 50 3d 49 2d |1)=""...|.MAXP=I-|
|000003a0| 32 0d 01 ae 07 d9 23 41 | 0d 01 b8 05 e1 0d 01 c2 |2.....#A|........|
|000003b0| 04 0d 01 cc 0d dd f2 69 | 6e 69 74 73 63 72 0d 01 |.......i|nitscr..|
|000003c0| d6 08 eb 20 32 37 0d 01 | e0 21 ff 22 50 52 49 4e |... 27..|.!."PRIN|
|000003d0| 54 20 3c 50 44 4d 41 47 | 24 44 49 52 3e 2e 21 50 |T <PDMAG|$DIR>.!P|
|000003e0| 41 4c 45 54 54 45 22 0d | 01 ea 13 fb 20 31 32 38 |ALETTE".|.... 128|
|000003f0| 3a db 3a fb 20 37 3a e6 | 20 37 0d 01 f4 1b ef 20 |:.:. 7:.| 7..... |
|00000400| 32 33 2c 31 37 2c 37 2c | 25 31 31 30 2c 38 3b 31 |23,17,7,|%110,8;1|
|00000410| 36 3b 30 3b 30 0d 01 fe | 16 e3 20 49 3d 30 20 b8 |6;0;0...|.. I=0 .|
|00000420| 20 31 32 38 30 20 88 20 | 32 35 35 0d 02 08 2d f2 | 1280 . |255...-.|
|00000430| 73 70 72 69 74 65 28 22 | 68 62 61 72 22 2c 49 2c |sprite("|hbar",I,|
|00000440| 39 32 30 29 3a f2 73 70 | 72 69 74 65 28 22 68 62 |920):.sp|rite("hb|
|00000450| 61 72 22 2c 49 2c 30 29 | 0d 02 12 05 ed 0d 02 1c |ar",I,0)|........|
|00000460| 16 e3 20 49 3d 32 34 20 | b8 20 38 30 30 20 88 20 |.. I=24 |. 800 . |
|00000470| 31 32 38 0d 02 26 2e f2 | 73 70 72 69 74 65 28 22 |128..&..|sprite("|
|00000480| 76 62 61 72 22 2c 30 2c | 49 29 3a f2 73 70 72 69 |vbar",0,|I):.spri|
|00000490| 74 65 28 22 76 62 61 72 | 22 2c 31 32 34 35 2c 49 |te("vbar|",1245,I|
|000004a0| 29 0d 02 30 05 ed 0d 02 | 3a 19 f2 73 70 72 69 74 |)..0....|:..sprit|
|000004b0| 65 28 22 6d 65 6e 75 22 | 2c 30 2c 39 32 30 29 0d |e("menu"|,0,920).|
|000004c0| 02 44 1a f2 73 70 72 69 | 74 65 28 22 75 70 22 2c |.D..spri|te("up",|
|000004d0| 31 32 34 35 2c 39 32 30 | 29 0d 02 4e 1a f2 73 70 |1245,920|)..N..sp|
|000004e0| 72 69 74 65 28 22 64 6f | 77 6e 22 2c 31 32 34 35 |rite("do|wn",1245|
|000004f0| 2c 30 29 0d 02 58 1a f2 | 73 70 72 69 74 65 28 22 |,0)..X..|sprite("|
|00000500| 73 70 65 63 69 61 6c 22 | 2c 30 2c 30 29 0d 02 62 |special"|,0,0)..b|
|00000510| 30 f2 73 70 72 69 74 65 | 28 22 6c 65 66 74 22 2c |0.sprite|("left",|
|00000520| 34 30 2c 30 29 3a f2 73 | 70 72 69 74 65 28 22 72 |40,0):.s|prite("r|
|00000530| 69 67 68 74 22 2c 31 32 | 30 35 2c 30 29 0d 02 6c |ight",12|05,0)..l|
|00000540| 1c f2 73 70 72 69 74 65 | 28 22 73 70 65 63 69 61 |..sprite|("specia|
|00000550| 6c 32 22 2c 30 2c 34 30 | 29 0d 02 76 13 ff 22 50 |l2",0,40|)..v.."P|
|00000560| 4f 49 4e 54 45 52 20 31 | 22 3a ef 35 0d 02 80 05 |OINTER 1|":.5....|
|00000570| e1 0d 02 8a 04 0d 02 94 | 0b dd f2 57 28 54 49 29 |........|...W(TI)|
|00000580| 0d 02 9e 08 ea 20 5a 5a | 0d 02 a8 14 e3 20 5a 5a |..... ZZ|..... ZZ|
|00000590| 3d 31 20 b8 20 54 49 3a | c8 96 3a ed 0d 02 b2 05 |=1 . TI:|..:.....|
|000005a0| e1 0d 02 bc 04 0d 02 c6 | 0c dd f2 72 65 64 72 61 |........|...redra|
|000005b0| 77 0d 02 d0 07 ea 20 4d | 0d 02 da 18 ef 20 32 34 |w..... M|..... 24|
|000005c0| 2c 33 38 3b 33 38 3b 31 | 32 32 30 3b 39 34 30 3b |,38;38;1|220;940;|
|000005d0| 0d 02 e4 1c e6 20 30 3a | c8 93 20 c8 90 20 33 38 |..... 0:|.. .. 38|
|000005e0| 2c 33 38 2c 31 32 30 35 | 2c 38 38 30 0d 02 ee 07 |,38,1205|,880....|
|000005f0| e6 20 37 0d 02 f8 14 4e | 3d 32 30 3a e7 20 46 4f |. 7....N|=20:. FO|
|00000600| 4e 54 20 4e 3d 32 31 0d | 03 02 09 4d 3d 50 2b 4e |NT N=21.|...M=P+N|
|00000610| 0d 03 0c 16 e7 20 4d 41 | 58 50 3c 32 31 20 8c 20 |..... MA|XP<21 . |
|00000620| 4d 3d 4d 41 58 50 0d 03 | 16 0f e3 20 49 3d 50 20 |M=MAXP..|... I=P |
|00000630| b8 20 50 2b 4e 0d 03 20 | 42 e7 20 ac 20 46 4f 4e |. P+N.. |B. . FON|
|00000640| 54 20 8c 20 f2 54 28 39 | 30 30 2d 28 28 49 2d 50 |T . .T(9|00-((I-P|
|00000650| 29 2a 34 30 29 2c 54 24 | 28 49 29 29 20 8b 20 f2 |)*40),T$|(I)) . .|
|00000660| 54 28 39 30 30 2d 28 28 | 49 2d 50 29 2a 34 30 29 |T(900-((|I-P)*40)|
|00000670| 2c 54 24 28 49 29 29 0d | 03 2a 05 ed 0d 03 34 08 |,T$(I)).|.*....4.|
|00000680| ef 20 32 36 0d 03 3e 05 | e1 0d 03 48 04 0d 03 52 |. 26..>.|...H...R|
|00000690| 11 dd f2 6c 6f 61 64 70 | 69 63 74 75 72 65 0d 03 |...loadp|icture..|
|000006a0| 5c 0b ea 20 58 2c 59 2c | 5a 0d 03 66 35 ff 22 4c |\.. X,Y,|Z..f5."L|
|000006b0| 5a 57 53 6c 6f 61 64 20 | 3c 50 44 4d 61 67 24 64 |ZWSload |<PDMag$d|
|000006c0| 69 72 3e 2e 49 6e 68 61 | 6c 74 2e 22 2b c3 53 50 |ir>.Inha|lt."+.SP|
|000006d0| 41 52 54 45 2b 22 2e 22 | 2b 50 49 43 54 24 0d 03 |ARTE+"."|+PICT$..|
|000006e0| 70 05 87 0d 03 7a 05 f5 | 0d 03 84 0c c8 97 20 58 |p....z..|...... X|
|000006f0| 2c 59 2c 5a 0d 03 8e 14 | fd 20 5a 3e 30 20 84 20 |,Y,Z....|. Z>0 . |
|00000700| bf 28 30 29 3c 3e 22 22 | 0d 03 98 0c f2 69 6e 69 |.(0)<>""|.....ini|
|00000710| 74 73 63 72 0d 03 a2 1b | f2 73 70 72 69 74 65 28 |tscr....|.sprite(|
|00000720| 22 70 73 70 65 63 69 61 | 6c 22 2c 30 2c 30 29 0d |"pspecia|l",0,0).|
|00000730| 03 ac 0b f2 72 65 64 72 | 61 77 0d 03 b6 05 e1 0d |....redr|aw......|
|00000740| 03 c0 04 0d 03 ca 0d dd | f2 6c 6f 61 64 70 72 67 |........|.loadprg|
|00000750| 0d 03 d4 2c c8 9b 22 3c | 50 44 4d 61 67 24 44 69 |...,.."<|PDMag$Di|
|00000760| 72 3e 2e 49 6e 68 61 6c | 74 2e 22 2b c3 53 50 41 |r>.Inhal|t."+.SPA|
|00000770| 52 54 45 2b 22 2e 22 2b | 50 52 47 24 0d 03 de 19 |RTE+"."+|PRG$....|
|00000780| 41 3d a0 28 22 46 4e 22 | 2b c3 53 50 41 52 54 45 |A=.("FN"|+.SPARTE|
|00000790| 2b 22 58 22 29 0d 03 e8 | 05 f5 0d 03 f2 0c c8 97 |+"X")...|........|
|000007a0| 20 58 2c 59 2c 5a 0d 03 | fc 14 fd 20 5a 3e 30 20 | X,Y,Z..|... Z>0 |
|000007b0| 84 20 bf 28 30 29 3c 3e | 22 22 0d 04 06 0c f2 69 |. .(0)<>|"".....i|
|000007c0| 6e 69 74 73 63 72 0d 04 | 10 1c f2 73 70 72 69 74 |nitscr..|...sprit|
|000007d0| 65 28 22 70 73 70 65 63 | 69 61 6c 32 22 2c 30 2c |e("pspec|ial2",0,|
|000007e0| 30 29 0d 04 1a 0b f2 72 | 65 64 72 61 77 0d 04 24 |0).....r|edraw..$|
|000007f0| 05 e1 0d 04 2e 04 0d 04 | 38 15 dd f2 69 6e 69 74 |........|8...init|
|00000800| 66 6f 6e 74 28 46 4f 4e | 54 24 29 0d 04 42 17 72 |font(FON|T$)..B.r|
|00000810| 63 6f 6c 25 3d 31 32 34 | 35 3a 6c 63 6f 6c 25 3d |col%=124|5:lcol%=|
|00000820| 35 30 0d 04 4c 28 c8 99 | 26 34 30 30 38 31 2c 2c |50..L(..|&40081,,|
|00000830| 46 4f 4e 54 24 2c 32 30 | 30 2c 32 30 30 2c 30 2c |FONT$,20|0,200,0,|
|00000840| 30 20 b8 20 72 6f 6d 61 | 6e 25 0d 04 56 20 c8 99 |0 . roma|n%..V ..|
|00000850| 26 34 30 30 38 34 2c 72 | 6f 6d 61 6e 25 20 b8 20 |&40084,r|oman% . |
|00000860| 2c 2c 79 30 25 2c 2c 79 | 31 25 0d 04 60 1a ef 32 |,,y0%,,y|1%..`..2|
|00000870| 33 2c 32 35 2c 33 2c 32 | 2c 34 2c 36 2c 38 2c 31 |3,25,3,2|,4,6,8,1|
|00000880| 30 2c 31 32 0d 04 6a 28 | ef 32 33 2c 32 35 2c 26 |0,12..j(|.23,25,&|
|00000890| 38 38 2c 39 2c 26 46 46 | 2c 26 46 46 2c 26 46 46 |88,9,&FF|,&FF,&FF|
|000008a0| 2c 26 30 30 2c 26 30 30 | 2c 26 30 30 0d 04 74 0f |,&00,&00|,&00..t.|
|000008b0| 79 63 6f 6f 72 64 25 3d | 39 35 30 0d 04 7e 05 e1 |ycoord%=|950..~..|
|000008c0| 0d 04 88 23 dd f2 70 73 | 6a 75 73 74 69 66 79 28 |...#..ps|justify(|
|000008d0| 78 63 6f 6f 72 64 25 2c | 79 63 6f 6f 72 64 25 2c |xcoord%,|ycoord%,|
|000008e0| 41 24 29 0d 04 92 0e ea | 57 25 2c 20 74 79 70 65 |A$).....|W%, type|
|000008f0| 25 0d 04 9c 13 ec 35 30 | 2c 79 63 6f 6f 72 64 25 |%.....50|,ycoord%|
|00000900| 2b 79 30 25 0d 04 a6 15 | ec 31 32 34 35 2c 79 63 |+y0%....|.1245,yc|
|00000910| 6f 6f 72 64 25 2b 79 31 | 25 0d 04 b0 12 e7 57 25 |oord%+y1|%.....W%|
|00000920| 81 34 30 30 3e 31 30 30 | 30 20 8c 0d 04 ba 12 ec |.400>100|0 ......|
|00000930| 72 63 6f 6c 25 2c 79 63 | 6f 6f 72 64 25 0d 04 c4 |rcol%,yc|oord%...|
|00000940| 0d 74 79 70 65 25 3d 26 | 31 31 0d 04 ce 05 cc 0d |.type%=&|11......|
|00000950| 04 d8 0d 74 79 70 65 25 | 3d 26 31 30 0d 04 e2 05 |...type%|=&10....|
|00000960| cd 0d 04 ec 26 c8 99 26 | 34 30 30 38 36 2c 2c 41 |....&..&|40086,,A|
|00000970| 24 2c 74 79 70 65 25 2c | 78 63 6f 6f 72 64 25 2c |$,type%,|xcoord%,|
|00000980| 79 63 6f 6f 72 64 25 0d | 04 f6 09 f2 70 73 6c 66 |ycoord%.|....pslf|
|00000990| 0d 05 00 05 e1 0d 05 0a | 0a dd f2 70 73 6c 66 0d |........|...pslf.|
|000009a0| 05 14 18 79 63 6f 6f 72 | 64 25 20 2d 3d 20 79 31 |...ycoor|d% -= y1|
|000009b0| 25 2d 79 30 25 2b 34 0d | 05 1e 05 e1 0d ff       |%-y0%+4.|......  |
+--------+-------------------------+-------------------------+--------+--------+