home *** CD-ROM | disk | FTP | other *** search
/ PC Games 2 the Maxx / pcgames.zip / pcgames / MISC / ADVTUTR.ZIP / APPLE.SCR < prev    next >
Encoding:
Text File  |  1987-08-28  |  827 b   |  21 lines
  1. An example for an Apple Screen:
  2.  
  3.  
  4. 1000 VTAB 1:HTAB 1:PRINT ROOM$;SPC(80-POS(0));
  5. 1010 PRINT"VISABLE OBJECTS: ";:Z=0
  6. 1020 FOR X=1 TO OBJECTS:IF L(X)<>L THEN 1060
  7. 1030 IF Z<>0 THEN PRINT", ";
  8. 1040 IF POS(0)+LEN(OBJECT$(X))+3>79 THEN PRINT SPC(80-POS(0));
  9. 1050 PRINT OBJECT$(X);SPC(80-POS(0));
  10. 1060 NEXT:IF Z=0 THEN PRINT"NOTHING";SPC(80-POS(0));
  11. 1070 PRINT"OBVIOUS EXITS: ";:FOR X=1 TO 6:IF D(L,X)=0 THEN 1090
  12. 1080 IF D(L,1)<>0 THEN PRINT"NORTH ";
  13. 1081 IF D(L,2)<>0 THEN PRINT"EAST ";
  14. 1082 IF D(L,3)<>0 THEN PRINT"SOUTH ";
  15. 1083 IF D(L,4)<>0 THEN PRINT"WEST ";
  16. 1084 IF D(L,5)<>0 THEN PRINT"UP ";
  17. 1085 IF D(L,6)<>0 THEN PRINT"DOWN ";
  18. 1090 NEXT:PRINT SPC(80-POS(0));:PRINT"-----------------------------------------
  19. -------------------------------------"
  20. 1100 VTAB 24:HTAB 1:INPUT"WHAT WOULD YOU LIKE TO DO";AN$
  21.