Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware » PD/IntFiction/DavidRPG2/!DavidRPG2/Display/Command
PD/IntFiction/DavidRPG2/!DavidRPG2/Display/Command
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware |
| Filename: | PD/IntFiction/DavidRPG2/!DavidRPG2/Display/Command |
| Read OK: | ✔ |
| File size: | 0379 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Display manager (command) for !DavidRPG2 20REM (c) David Spence, 1998. 30 40ERROR 1,"Don't run this library" 50END 60 70DEFPROCdisplay_SetTitle(o$) 80pos=POS 90vpos=VPOS 100PRINT TAB(0,0);o$ 110PRINT TAB(pos,vpos) 120ENDPROC 130 140DEFPROCdisplay_SetPosIndicator(o$) 150pos=POS 160vpos=VPOS 170PRINT TAB(20,0);o$ 180PRINT TAB(pos,vpos) 190ENDPROC 200 210DEFPROCdisplay_init(o$) 220MODE 15 230ENDPROC 240 250DEFPROCcls 260CLS 270ENDPROC 280 290DEFPROCdisplay_initstart(o$) 300ENDPROC 310 320DEFPROCdisplay_initend 330 MODE 15 340 PROCrestart_interp 350ENDPROC 360 370DEFPROCdisplay_end 380ENDPROC 390 400DEFPROCdisplay_poll 410ENDPROC 420 430DEFPROCreport(o$) 440PRINT "error: ";o$ 450err+=1 460ENDPROC 470 480DEFPROCdisplay(o$) 490PRINT o$ 500ENDPROC 510 520DEFFNinput 530LINE INPUT u$ 540i$=FNfirst(FNtoupper(u$)) 550IF FNfirst(FNtoupper(u$))="RESTART" OR FNfirst(FNtoupper(u$))="RESET" THEN PROCcls:PROCrestart_interp 560IF i$="END" OR i$="QUIT" OR i$="STOP" THEN END 570=FNtoupper(u$) 580 590DEFPROCdisplay_special(o$) 600PRINT o$ 610ENDPROC 620 630DEFFNdisplay_tempdir 640="<DavidRPG3$Dir>.Compile"
.� Display manager (command) for !DavidRPG2 � (c) David Spence, 1998. ( � 1,"Don't run this library" 2� < F��display_SetTitle(o$) P pos=� Z vpos=� d� �0,0);o$ n� �pos,vpos) x� � �!��display_SetPosIndicator(o$) � pos=� � vpos=� �� �20,0);o$ �� �pos,vpos) �� � ���display_init(o$) �� 15 �� � � ��cls � � "��display_initstart(o$) ,� 6 @��display_initend J � 15 T �restart_interp ^� h r��display_end |� � ���display_poll �� � ���report(o$) �� "error: ";o$ � err+=1 �� � ���display(o$) �� o$ �� � ݤinput � � u$ i$=�first(�toupper(u$)) &Z� �first(�toupper(u$))="RESTART" � �first(�toupper(u$))="RESET" � �cls:�restart_interp 0*� i$="END" � i$="QUIT" � i$="STOP" � � :=�toupper(u$) D N��display_special(o$) X� o$ b� l vݤdisplay_tempdir � ="<DavidRPG3$Dir>.Compile" �
00000000 0d 00 0a 2e f4 20 44 69 73 70 6c 61 79 20 6d 61 |..... Display ma| 00000010 6e 61 67 65 72 20 28 63 6f 6d 6d 61 6e 64 29 20 |nager (command) | 00000020 66 6f 72 20 21 44 61 76 69 64 52 50 47 32 0d 00 |for !DavidRPG2..| 00000030 14 1d f4 20 28 63 29 20 44 61 76 69 64 20 53 70 |... (c) David Sp| 00000040 65 6e 63 65 2c 20 31 39 39 38 2e 0d 00 1e 04 0d |ence, 1998......| 00000050 00 28 20 85 20 31 2c 22 44 6f 6e 27 74 20 72 75 |.( . 1,"Don't ru| 00000060 6e 20 74 68 69 73 20 6c 69 62 72 61 72 79 22 0d |n this library".| 00000070 00 32 05 e0 0d 00 3c 04 0d 00 46 1a dd f2 64 69 |.2....<...F...di| 00000080 73 70 6c 61 79 5f 53 65 74 54 69 74 6c 65 28 6f |splay_SetTitle(o| 00000090 24 29 0d 00 50 09 70 6f 73 3d b1 0d 00 5a 0a 76 |$)..P.pos=...Z.v| 000000a0 70 6f 73 3d bc 0d 00 64 0e f1 20 8a 30 2c 30 29 |pos=...d.. .0,0)| 000000b0 3b 6f 24 0d 00 6e 10 f1 20 8a 70 6f 73 2c 76 70 |;o$..n.. .pos,vp| 000000c0 6f 73 29 0d 00 78 05 e1 0d 00 82 04 0d 00 8c 21 |os)..x.........!| 000000d0 dd f2 64 69 73 70 6c 61 79 5f 53 65 74 50 6f 73 |..display_SetPos| 000000e0 49 6e 64 69 63 61 74 6f 72 28 6f 24 29 0d 00 96 |Indicator(o$)...| 000000f0 09 70 6f 73 3d b1 0d 00 a0 0a 76 70 6f 73 3d bc |.pos=.....vpos=.| 00000100 0d 00 aa 0f f1 20 8a 32 30 2c 30 29 3b 6f 24 0d |..... .20,0);o$.| 00000110 00 b4 10 f1 20 8a 70 6f 73 2c 76 70 6f 73 29 0d |.... .pos,vpos).| 00000120 00 be 05 e1 0d 00 c8 04 0d 00 d2 16 dd f2 64 69 |..............di| 00000130 73 70 6c 61 79 5f 69 6e 69 74 28 6f 24 29 0d 00 |splay_init(o$)..| 00000140 dc 08 eb 20 31 35 0d 00 e6 05 e1 0d 00 f0 04 0d |... 15..........| 00000150 00 fa 09 dd f2 63 6c 73 0d 01 04 05 db 0d 01 0e |.....cls........| 00000160 05 e1 0d 01 18 04 0d 01 22 1b dd f2 64 69 73 70 |........"...disp| 00000170 6c 61 79 5f 69 6e 69 74 73 74 61 72 74 28 6f 24 |lay_initstart(o$| 00000180 29 0d 01 2c 05 e1 0d 01 36 04 0d 01 40 15 dd f2 |)..,....6...@...| 00000190 64 69 73 70 6c 61 79 5f 69 6e 69 74 65 6e 64 0d |display_initend.| 000001a0 01 4a 09 20 eb 20 31 35 0d 01 54 14 20 f2 72 65 |.J. . 15..T. .re| 000001b0 73 74 61 72 74 5f 69 6e 74 65 72 70 0d 01 5e 05 |start_interp..^.| 000001c0 e1 0d 01 68 04 0d 01 72 11 dd f2 64 69 73 70 6c |...h...r...displ| 000001d0 61 79 5f 65 6e 64 0d 01 7c 05 e1 0d 01 86 04 0d |ay_end..|.......| 000001e0 01 90 12 dd f2 64 69 73 70 6c 61 79 5f 70 6f 6c |.....display_pol| 000001f0 6c 0d 01 9a 05 e1 0d 01 a4 04 0d 01 ae 10 dd f2 |l...............| 00000200 72 65 70 6f 72 74 28 6f 24 29 0d 01 b8 12 f1 20 |report(o$)..... | 00000210 22 65 72 72 6f 72 3a 20 22 3b 6f 24 0d 01 c2 0a |"error: ";o$....| 00000220 65 72 72 2b 3d 31 0d 01 cc 05 e1 0d 01 d6 04 0d |err+=1..........| 00000230 01 e0 11 dd f2 64 69 73 70 6c 61 79 28 6f 24 29 |.....display(o$)| 00000240 0d 01 ea 08 f1 20 6f 24 0d 01 f4 05 e1 0d 01 fe |..... o$........| 00000250 04 0d 02 08 0b dd a4 69 6e 70 75 74 0d 02 12 0a |.......input....| 00000260 86 20 e8 20 75 24 0d 02 1c 1b 69 24 3d a4 66 69 |. . u$....i$=.fi| 00000270 72 73 74 28 a4 74 6f 75 70 70 65 72 28 75 24 29 |rst(.toupper(u$)| 00000280 29 0d 02 26 5a e7 20 a4 66 69 72 73 74 28 a4 74 |)..&Z. .first(.t| 00000290 6f 75 70 70 65 72 28 75 24 29 29 3d 22 52 45 53 |oupper(u$))="RES| 000002a0 54 41 52 54 22 20 84 20 a4 66 69 72 73 74 28 a4 |TART" . .first(.| 000002b0 74 6f 75 70 70 65 72 28 75 24 29 29 3d 22 52 45 |toupper(u$))="RE| 000002c0 53 45 54 22 20 8c 20 f2 63 6c 73 3a f2 72 65 73 |SET" . .cls:.res| 000002d0 74 61 72 74 5f 69 6e 74 65 72 70 0d 02 30 2a e7 |tart_interp..0*.| 000002e0 20 69 24 3d 22 45 4e 44 22 20 84 20 69 24 3d 22 | i$="END" . i$="| 000002f0 51 55 49 54 22 20 84 20 69 24 3d 22 53 54 4f 50 |QUIT" . i$="STOP| 00000300 22 20 8c 20 e0 0d 02 3a 11 3d a4 74 6f 75 70 70 |" . ...:.=.toupp| 00000310 65 72 28 75 24 29 0d 02 44 04 0d 02 4e 19 dd f2 |er(u$)..D...N...| 00000320 64 69 73 70 6c 61 79 5f 73 70 65 63 69 61 6c 28 |display_special(| 00000330 6f 24 29 0d 02 58 08 f1 20 6f 24 0d 02 62 05 e1 |o$)..X.. o$..b..| 00000340 0d 02 6c 04 0d 02 76 15 dd a4 64 69 73 70 6c 61 |..l...v...displa| 00000350 79 5f 74 65 6d 70 64 69 72 0d 02 80 1e 3d 22 3c |y_tempdir....="<| 00000360 44 61 76 69 64 52 50 47 33 24 44 69 72 3e 2e 43 |DavidRPG3$Dir>.C| 00000370 6f 6d 70 69 6c 65 22 0d ff |ompile"..| 00000379
.