Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_24.ADF » SCREEN
SCREEN
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_24.ADF |
| Filename: | SCREEN |
| Read OK: | ✔ |
| File size: | 021A bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10 REM: EUG TITLE PAGE 20 REM: ADAPTED FROM 'LEARNING TO USE ELECTRON' 30 REM: COZ I CARNT RITE MI HONE PROGRAMS!!!!! 40 MODE1 50 COLOUR 4:COLOUR 129 60 CLS 70 VDU23,1,0;0;0;0; 80 Pos=20:Dir=1 90 REPEAT 100 Pos=Pos+Dir 110 PRINT TAB(Pos,5);" W E L C O M E " 120 PRINT TAB(Pos,7);" TO " 130 PRINTTAB(Pos,10);" E U G " 140 PRINTTAB(Pos,12);" 24 " 150 PRINTTAB(Pos,14);" ************* " 160 PRINTTAB(Pos,16);" THIS SCREEN " 170 PRINTTAB(Pos,21);" BY GERRY EMSON " 180 PRINTTAB(Pos,25);" ***XX*** " 190 PRINTTAB(Pos,29);" PRESS SPACE " 200 IF Pos<1 OR Pos>21 THEN Dir=-Dir 210 IF INKEY(-99) CHAIN"MENU" 220 UNTIL 2=3
�: EUG TITLE PAGE / �: ADAPTED FROM 'LEARNING TO USE ELECTRON' . �: COZ I CARNT RITE MI HONE PROGRAMS!!!!! ( �1 2 � 4:� 129 < � F �23,1,0;0;0;0; P Pos=20:Dir=1 Z � d Pos=Pos+Dir n � �Pos,5);" W E L C O M E " x � �Pos,7);" TO " � �Pos,10);" E U G " � �Pos,12);" 24 " � �Pos,14);" ************* " � �Pos,16);" THIS SCREEN " �! �Pos,21);" BY GERRY EMSON " � �Pos,25);" ***XX*** " � �Pos,29);" PRESS SPACE " � � Pos<1 � Pos>21 � Dir=-Dir � � �(-99) �"MENU" � � 2=3 �
00000000 0d 00 0a 16 20 f4 3a 20 45 55 47 20 54 49 54 4c |.... .: EUG TITL| 00000010 45 20 50 41 47 45 0d 00 14 2f 20 f4 3a 20 41 44 |E PAGE.../ .: AD| 00000020 41 50 54 45 44 20 46 52 4f 4d 20 27 4c 45 41 52 |APTED FROM 'LEAR| 00000030 4e 49 4e 47 20 54 4f 20 55 53 45 20 45 4c 45 43 |NING TO USE ELEC| 00000040 54 52 4f 4e 27 0d 00 1e 2e 20 f4 3a 20 43 4f 5a |TRON'.... .: COZ| 00000050 20 49 20 43 41 52 4e 54 20 52 49 54 45 20 4d 49 | I CARNT RITE MI| 00000060 20 48 4f 4e 45 20 50 52 4f 47 52 41 4d 53 21 21 | HONE PROGRAMS!!| 00000070 21 21 21 0d 00 28 07 20 eb 31 0d 00 32 0e 20 fb |!!!..(. .1..2. .| 00000080 20 34 3a fb 20 31 32 39 0d 00 3c 06 20 db 0d 00 | 4:. 129..<. ...| 00000090 46 13 20 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 |F. .23,1,0;0;0;0| 000000a0 3b 0d 00 50 11 20 50 6f 73 3d 32 30 3a 44 69 72 |;..P. Pos=20:Dir| 000000b0 3d 31 0d 00 5a 07 20 f5 20 0d 00 64 10 20 50 6f |=1..Z. . ..d. Po| 000000c0 73 3d 50 6f 73 2b 44 69 72 0d 00 6e 20 20 f1 20 |s=Pos+Dir..n . | 000000d0 8a 50 6f 73 2c 35 29 3b 22 20 57 20 45 20 4c 20 |.Pos,5);" W E L | 000000e0 43 20 4f 20 4d 20 45 20 22 0d 00 78 1b 20 f1 20 |C O M E "..x. . | 000000f0 8a 50 6f 73 2c 37 29 3b 22 20 20 20 20 20 20 20 |.Pos,7);" | 00000100 54 4f 20 22 0d 00 82 1c 20 f1 8a 50 6f 73 2c 31 |TO ".... ..Pos,1| 00000110 30 29 3b 22 20 20 20 20 20 45 20 55 20 47 20 22 |0);" E U G "| 00000120 0d 00 8c 1b 20 f1 8a 50 6f 73 2c 31 32 29 3b 22 |.... ..Pos,12);"| 00000130 20 20 20 20 20 20 20 32 34 20 22 0d 00 96 20 20 | 24 "... | 00000140 f1 8a 50 6f 73 2c 31 34 29 3b 22 20 2a 2a 2a 2a |..Pos,14);" ****| 00000150 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 22 0d 00 a0 20 20 |********* "... | 00000160 f1 8a 50 6f 73 2c 31 36 29 3b 22 20 20 54 48 49 |..Pos,16);" THI| 00000170 53 20 20 53 43 52 45 45 4e 20 22 0d 00 aa 21 20 |S SCREEN "...! | 00000180 f1 8a 50 6f 73 2c 32 31 29 3b 22 20 42 59 20 47 |..Pos,21);" BY G| 00000190 45 52 52 59 20 45 4d 53 4f 4e 20 22 0d 00 b4 1f |ERRY EMSON "....| 000001a0 20 f1 8a 50 6f 73 2c 32 35 29 3b 22 20 20 20 20 | ..Pos,25);" | 000001b0 2a 2a 2a 58 58 2a 2a 2a 20 20 22 0d 00 be 1e 20 |***XX*** ".... | 000001c0 f1 8a 50 6f 73 2c 32 39 29 3b 22 20 50 52 45 53 |..Pos,29);" PRES| 000001d0 53 20 53 50 41 43 45 20 22 0d 00 c8 20 20 e7 20 |S SPACE "... . | 000001e0 50 6f 73 3c 31 20 84 20 50 6f 73 3e 32 31 20 8c |Pos<1 . Pos>21 .| 000001f0 20 44 69 72 3d 2d 44 69 72 0d 00 d2 15 20 e7 20 | Dir=-Dir.... . | 00000200 a6 28 2d 39 39 29 20 d7 22 4d 45 4e 55 22 0d 00 |.(-99) ."MENU"..| 00000210 dc 0a 20 fd 20 32 3d 33 0d ff |.. . 2=3..| 0000021a
SCREEN.m0
SCREEN.m1
SCREEN.m2
SCREEN.m4
SCREEN.m5
.